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ABSTRACT 


The  partial  differential  equation  describing  trans¬ 
ient  conduction  (or  diffusion)  in  non-homogeneous  media  may 
be  approximated  by  a  set  of  first  order  ordinary  differential 
equations  if  the  space-derivatives  are  replaced  by  finite- 
difference  expressions.  The  independent  variable  in  this 
set  of  ordinary  differential  equations  is  time;  the  de¬ 
pendent  variables  are  temperatures  (or  concentrations)  at  a 
number  of  discrete  points.  If  the  properties  of  the  media 
are  functions  of  position  only,  but  not  of  temperature  (or 
concentration)  or  time,  then  the  set  of  differential  equations 
is  linear.  Further,  if  the  media  are  isotropic,  the  co¬ 
efficient  matrix  associated  with  this  set  of  linear  different¬ 
ial  equations  is  symmetric.  A  general  method  of  obtaining 
a  closed  form  solution  of  these  equations  was  developed. 

The  solution  makes  use  of  certain  operational  methods  of 
linear  algebra,  and  is  in  terms  of  a  matrix,  which  describes 
the  spatial  distribution  of  physical  properties  in  the 
media,  and  vectors  describing  the  initial  and  boundary 
conditions.  Example  problems  of  varying  complexify  in  one- 
and  two-dimensional  non-homogeneous  media  are  presented. 

The  solutions  were  found  to  agree  favourably  with  solutions 
obtained  by  other  methods. 

The  linear  transformation  of  the  dependent  variables 
used  in  obtaining  a  general  solution  of  the  set  of  ordinary 
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differential  equations  decouples  these  variables.  These 
modified  variables  are  shown  to  decay  logarithmically  at 

rates  proportional  to  the  eigenvalues  of  the  coefficient 
matrix.  This  property  of  the  modified  variables  was  used 
in  developing  a  method  by  which  the  transport  properties  of 
a  medium  can  be  determined  with  good  sensitivity.  Unsteady- 
state  data  required  to  test  this  model  were  produced  from 
experiments  using  the  technique  of  microcell  interferometry. 
Using  this  method,  the  molecular  diffusivity  of  copper 
sulfate  in  water  and  thermal  diffusivity  of  water  were 
determined  with  acceptable  accuracies.  The  conventional 
"least-squares"  analysis  of  these  data  was  found  to  be  in¬ 
adequate  o 

A  mathematical  model  for  estimation  of  the  "con¬ 
ductivity  matrix"  of  a  non-homogeneous  medium  was  devel¬ 
oped.  When  tested  on  some  data  generated  from  a  semi-analyt¬ 
ical  solution,  the  model  produced  very  accurate  results. 

Some  predictions  about  the  design  of  experiments,  made  by 
the  model  were  thus  verified. 
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I .  INTRODUCTION 

"Et  Ignem  Regunt  Numeri  -  Plato" 

The  importance  of  heat  has  been  known  to  man  since 
the  time  he  discovered  fire.  But  the  nature  of  laws  govern¬ 
ing  transfer  of  heat  were  not  known  till  the  time  of  the 
great  French  physicist  Jean  Baptiste  Joseph  Fourier  (1768  - 
1830  A.D.).  Fourier  deduced  certain  laws  governing  heat 
transfer  through  "intense  observation"  and  his  monumental 
treatise,  "The'orie  Analytique  de  la  Chaleur"  was  a  result 
of  these  observations.  In  his  treatise,  Fourier  developed 
the  differential  equations  for  steady-state  and  transient 
flow  of  heat,  and  developed  the  famous  Fourier  series  solu¬ 
tions  to  some  simple  cases.  Since  that  time,  scores  of 
volumes  have  been  written  on  the  subject  and  some  are  still 
being  written. 

The  concept  of  conductivity  of  a  body  was  first 

gm  4 

introduced  by  Fourier  (he  called  it  conducibility)  and  was 
mathematically  described  by  him  in  his  famous  law  of  con¬ 
duction.  He  mentioned  in  his  treatise  that  "it  could  be 
determined  by  measuring  the  times  of  cooling  in  vessels  of 
different  thicknesses".  Evidence  exists  that  he  was  the 
first  person  to  make  any  such  measurements  and  he  determined 
the  "conducibility"  of  cast  iron  in  this  manner. 

H.S.  Carslaw  and  J.C.  Jaeger,  in  their  classical 
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work  (6)*,  considered  the  process  of  conduction  of  heat  in 
solids  systematically  and  developed  numerous  analytical  solu¬ 
tions  to  the  partial  differential  equation  describing  the 
process  of  transient  heat  conduction  for  a  number  of  initial 
and  boundary  conditions.  Practically  none  of  these  solu¬ 
tions  are  capable  of  treating  a  non-homogeneous  bodys  that 
is,  a  body  in  which  the  properties  of  heat  capacity  and 
thermal  conductivity  are  not  uniform  but  are  functions  of 
its  space  coordinates  and  its  temperature.  Also,  no  general 
method  of  arriving  at  an  analytical  solution  was  presented 
for  multi-dimensional  bodies. 

The  development  of  computers  in  the  recent  past  has 
made  practicable  an  alternate  way  of  handling  the  heat  conduct¬ 
ion  equation,  namely,  the  technique  of  numerical  integration. 
Since  the  introduction  of  the  explicit  finite-difference 
formulation  by  Binder  (4)  and  Schmidt  (26)  for  the  one¬ 
dimensional  heat  conduction  equation,  scores  of  numerical 
methods  have  been  introduced,  and  significant  progress  has 
been  made  in  this  field.  The  numerical  methods  are  cap¬ 
able  of  handling  the  non-homogenieties  of  a  bodys  this 
seems  to  be  one  of  their  main  advantages  over  analytical 
solutions.  Nevertheless,  these  methods  suffer  from  the 
fact  that  they  lack  generality;  also,  the  solutions  need  to 
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be  repeated  in  their  entirety  for  any  change  of  initial  or 
boundary  condition. 

The  science  of  estimation  of  transport  properties 
of  a  medium  has  also  been  the  subject  of  several  investi¬ 
gators.  Recently,  Beck  (3  )  reviewed  many  of  these  methods 
for  determination  of  thermal  conductivity  of  a  medium. 
Numerous  techniques  for  estimation  of  the  diffusivities  of  a 
solute  in  liquids  have  also  been  developed  and  are  reviewed 
at  length  in  Hirchfelder  et  al  ( 11)  .  A  few  characteristics 
of  all  these  methods  are  striking.  The  experimental  times 
of  most  of  these  methods  have  been  high,  so  that  elaborate 
arrangements  had  to  be  made  to  eliminate  extraneous  effects. 
In  many  cases,  the  data  could  be  collected  at  only  a  few 
points  of  the  medium,  which  restricted  the  available  in¬ 
formation.  Further,  the  mathematical  techniques  used  in 
the  treatment  of  unsteady-state  data  were  rather  tedious  and 
insensitive. 

The  present  work  takes  a  different  look  at  the 
Fourier  conduction  equation.  The  technique  has  been  named 
as  semi-analytical  since  the  time  derivative  of  the  Fourier 
equation  is  treated  as  a  continuous  derivative  and  only 
the  space  derivatives  are  discretised.  This  treatment 
transforms  the  original  partial  differential  equation  into 
a  set  of  ordinary  differential  equations.  The  whole  devel¬ 
opment  in  the  present  work  leans  heavily  on  the  fact  that 
there  is  a  first  order  coupling  of  flux  between  adjacent 
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elements  of  a  body  in  which  the  properties  are  independent 
of  the  dependent  variable.  Also,  if  the  body  is  isotropic, 
the  interactions  between  two  adjacent  elements  are  equal 
and  opposite.  These  properties  permit  setting  up  of  a 
matrix  differential  equation  in  which  the  coefficient  matrix 
has  certain  special  properties.  The  theory  of  linear 
algebra  and  matrices  can  be  used  to  great  advantage  on  this 
particular  mathematical  model  of  the  physical  system.  The 
fact  that  the  matrix  is  symmetric  allows  one  to  make  a  few 
generalisations.  Firstly,  there  is  an  orthogonal  system 
of  eigenvectors  associated  with  it.  By  defining  new  de¬ 
pendent  variables,  which  are  certain  linear  combinations  of 
the  original  variables,  the  system  can  be  completely  uncoupled. 
Further  development  shows  that  a  few  5t  straight  line  paths” 
can  be  established,  which  leads  one  to  a  rather  simple 
method  of  estimation  of  the  properties  of  a  medium,  homo¬ 
geneous  or  non-homogeneous .  The  properties  of  orthogonality 
and  symmetry  of  the  mathematical  model  of  the  physical  system 
also  lead  one  to  a  closed  form  solution  to  the  Fourier  con¬ 
duction  equation. 

In  the  remaining  chapters  of  this  work,  the  state¬ 
ments  made  above  are  developed  at  length.  Chapter  II  deals 
with  the  general  theory  of  the  system.  Chapters  III  and  IV 
deal  with  some  simple  and  complex  problems  involving  the 
solution  of  the  Fourier  equation  with  varying  degrees  of 
complexity  in  properties.  In  Chapter  V,  a  general  method 
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of  estimation  of  homogeneous  thermal  and  molecular  dif- 
fusivities  of  liquids  is  developed.  Chapter  VI  considers 
the  problem  of  estimation  of  properties  of  a  non-homogeneous 
medium  and  some  interesting  conclusions  leading  to  certain 
improvements  in  design  of  experiments  are  brought  out. 
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II.  GENERAL  THEORY 


In  this  chapter,  the  general  problem  of  solving  the 
diffusion  equation  is  discussed.  A  semi-analytical  solution, 
using  some  operational  methods  of  linear  algebra  is  developed. 
The  advantages  and  restrictions  of  this  solution  are  indicated. 

The  Fourier  equation,  which  describes  the  process 
of  transient  heat  conduction  in  a  body,  is  derived  in  great 
detail  in  various  treatises  on  heat  transfer  *  6,9,14).  In 
the  case  where 

1.  the  temperature  field  extends  over  a  single  non- 
homogeneous,  isotropic  body;  and 

2.  no  phase  changes  take  place  within  the  field, 
the  Fourier  equation,  written  in  standard  vector 
notation  is 


where 


c  =  v. (kvu)  +  f(r,t)  (11.1) 

u  =  temperature  at  any  point  in  the  body; 
jc  =  "position  vector"  of  the  point  under  consid¬ 
eration,  with  respect  to  an  arbitrarily 
chosen  origin  (A  bar  __  under  a  letter  is  used 
to  denote  a  vector  or  a  matrix 0  Small  letters 
are  used  for  vectors  and  capital  letters  for 
matrices) ; 
t  =  time 

k  =  thermal  conductivity,  a  function  of  r  and  u 
in  general; 
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heat  capacity,  a  function  of  r  and  u  in 
general? 
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f  =  the  “generation  term".  For  the  purposes  of 
this  equation.,  the  form  of  energy  from  which 
heat  is  obtained  is  entirely  immaterial.  How¬ 
ever,  the  entire  system  of  heat  sources  with¬ 
in  the  field  must  be  known. 

Equation  (II. 1)  is  a  parabolic  partial  differential 
equation  in  four  independent  variables  (time  t  and  three 
space  variables)  and  one  dependent  variable  u.  If  k  and 
c  are  independent  of  u,  this  equation  becomes  linear, 
since  it  contains  only  the  first  powers  of  temperature  and 
its  derivatives.  Also  it  is  of  second  order  since  it 
contains  second  partial  space  derivatives  of  the  temperature. 

The  general  problem  of  heat  conduction,  then,  is 
to  determine  the  temperature  distribution  in  the  body, 
givens 

1.  the  temperature  distribution  at  an  earlier  instant 
(usually  at  t  ~  0) .  This  is  known  as  the  initial 
condition. 

2.  The  influences  of  the  surroundings  on  the  bound¬ 
aries  of  the  body.  These  are  known  as  the  bound¬ 
ary  conditions. 

The  solution  to  the  general  conduction  problem  has 
been  very  extensively  attempted  in  the  past.  Three  approaches 
have  been  taken,  namelys 
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1.  analytical  methods 

2.  semi-analytical  methods 

3 .  numerical  methods 

The  excellent  treatise  by  Carslaw  and  Jaeger  (6) 
deals  mainly  with  the  analytical  solutions  of  the  con¬ 
duction  equation  for  a  homogeneous  one-dimensional  body 
under  various  initial  and  boundary  conditions „  A  few 
problems  of  heat  flow  in  non-homogeneous  bodies  are  also 
considered  and  solutions  for  these  are  given.  However, 
practically  no  multidimensional  problems  in  a  non-homo- 
geneous  body  are  treated  in  this  book. 

Numerical  methods  of  solving  the  Fourier  equation 
have  been  extensively  developed  since  the  advent  of  high 
speed  digital  computers.  The  various  numerical  methods 
may  be  classified  into  two  broad  categories,  namely  the 
explicit  and  implicit  methods.  Stable  procedures  havt 
been  developed  using  both  of  these  techniques  (1,13,23). 
Recently,  Varga  (30)  generalised  these  various  methods  and 
developed  a  few  general  criteria  for  stability  of  these 
methods . 

One  main  disadvantage  of  numerical  methods  is  that 
they  lack  generality;  a  change  in  initial  or  boundary 
condition  requires  that  the  complete  solution  be  repeated. 
Another  disadvantage  is  that  the  integration  procedures  are 
invariably  stepwise  in  time,  and  as  such  require  that  the 
solution  has  to  be  evaluated  at  the  previous  time  intervals 
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to  get  the  solution  at  the  time  required  -  obviously  a  time  - 
consuming  procedure. 

The  semi— analytical  method  proposed  here  for  tne  sol¬ 
ution  of  the  general  conduction  equation  combines  many  of 
the  advantages  of  analytical  and  numerical  methods  and, 
hopefully,  minimises  their  disadvantages.  This  method 
uses  the  concept  of  lumped  parameters,  so  commonly  used 
in  numerical  analysis,  along  with  some  operational  methods 
of  linear  algebra  and  matrix  theory. 

Semi-analytical  methods  are  not  altogether  news 
However,  the  application  of  semi-analytical  methods  to 
problems  of  interest  to  the  chemical  engineer  has  been 
very  limited.  Varga  (29) suggested  a  solution  to  the 
general  diffusion  equation  by  integrating  the  set  of 
ordinary  differential  equations  obtained  when  the  partial 
derivatives  on  the  space  side  are  put  in  finite  difference 
form.  He  also  established  that  the  set  of  ordinary  dif¬ 
ferential  equations  is  stable  from  a  consideration  of 
the  properties  of  the  associated  coefficient  matrix. 

The  most  important  work  of  interest  to  the  chemical 
engineer  in  which  the  semi-analytical  method  is  made  use 
of  is  that  of  Wei  and  Prater  (32) .  Paradoxically  enough, 
there,  is  practically  no  mention  of  a  possible  extension 
of  their  theory  -  essentially  developed  for  a  system  of 
complex  first  order  reactions  -  to  the  solution  of  the 
diffusion  equation  or  to  the  determination  of  transport 
properties,  where  generally  the  rate  equation  is  indeed 
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first  order. 

By  an  appropriate  method  of  spatial  discretisation, 
equation  (IX.l)  can  be  brought  into  the  form 
du  (t) 

D  -  =  B'  u  (t)  +  s'(t)  (II. 2) 

dt 

where  D  =  a  diagonal  matrix  of  constants; 
u(t)  =  temperature  vector? 

B'  =  coefficient  matrix  of  constants; 

_s ' (t)  =  boundary  condition  vector. 

By  the  nature  of  the  problem,  D  is  a  positive  real 
diagonal  matrix  and  hence  has  an  inverse  whose  elements 

are  simply  the  reciprocals  of  the  elements  of  D.  The 
notation  and  D  is  used  here  to  denote  the  diagonal 

matrices  whose  elements  are  the  square  roots  of  the  ele¬ 
ments  of  D  and  ,  respectively. 

The  derivation  of  equation  (II. 2)  from  equation 

(11. 1)  is  deferred  to  a  later  stage  in  the  thesis.. 

A  new  variable  w(t)  is  defined  by  the  equation 

w( t)  *  u(t)  (II. 3)* 

which  gives 

u(t)  =  D"^  w(t)  (II. 4) 

Substitution  of  equation  (II. 4)  into  equation 

(11. 2)  and  pre-multiplication  by  gives 


*  As  will  be  seen  in  the  presented  examples,  D  =  JL,  the 
identity  matrix  in  many  cases,  which  makes  w(t)  s  u(t) . 
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d  w{t) 

- __  =  B  w(t)  4*  js(t) 

dt 

■  JU  „  .  * 

where  j>(t)  =  D  2  js  1  (t)  and  .B  —  I)  2  B>  ,D  2  • 

Based  on  equation  (11,5),  it  is  possible  to  pose 
two  problems % 

1.  Given  the  coefficient  matrix  B,  an  intial  temp¬ 
erature  vector  u(o)  and  the  boundary  condition 
vector  J31  (t)  ,  find  the  temperature  profiles  as  a 
function  of  time,  This  is  known  as  the  "Forward 
Problem" , 

2,  Given  the  temperature  profiles  u{t)  for  various 
elapsed  times  and  the  boundary  condition  vector 
i'tt)  ,find  the  coefficient  matrix  B,  This  is 
known  as  the  "Inverse  Problem" , 

The  classical  work  of  Wei  and  Prater  (32)  deals 
with  the  solution  of  the  inverse  problem.  However,  there 
are  a  number  of  marked  differences  between  the  problem 
of  Wei  and  Prater  and  the  problem  considered  in  this  work. 
These  ares 

1,  The  system  studied  by  Wei  and  Prater  is  a  complex 
first  order  reaction  system.  This  will  be 
referred  to  as  a  "chemical  system"  from  here  on, 

2.  It  is  possible  to  study  a  chemical  system  experi¬ 
mentally  under  a  wide  variety  of  initial  condi¬ 
tions,  This  may  not  be  possible  in  a  physical 


system. 
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3.  In  a  chemical  system,  one  more  equation,  the  con¬ 
servation  of  mass  is  available.  As  may  be  not¬ 
iced  from  Wei  and  Prater’s  work,  their  develop¬ 
ment  leans  heavily  on  this  fact. 

4.  In  a  chemical  system,  no  boundary  conditions  are 
encountered,  again  changing  the  formulation  of  the 
model  quite  significantly. 

5.  The  coefficient  matrix  is,  in  general,  unsymmetric 
in  the  case  of  a  chemical  system,  contrary  to  the 
physical  systems*.  The  fact  that  B  is  symmetric 
in  a  physical  system  makes  the  size  of  the  physical 
problems  that  can  be  handled  fairly  large,  simply 
because  the  techniques  of  handling  symmetric  matrices 
are  developed  better. 


*  This  can  be  proved  as  follows? 


Restricting  the  present  discussion,  for  the  moment, 
to  the  two-dimensional  case,  consider  a  plane  region  R 
of  unit  thickness  (Fig.  XI. 1) .  This  region  is  arbit¬ 
rarily  divided  into  n  elemental  areas.  In  accordance 
with  the  lumped  parameter  concept,  u,  k,  c  are  consid¬ 
ered  constant  throughout  each  element .  The  properties 
are  in  fact  chosen  to  be  those  of  a  central  point  tor 
each  of  these  elements.  Expansion  of  the  space  deriv¬ 
ative  V. (kVu)  for  a  two-dimensional  case  results  in 


This  expression,  written  in 


^  /  -I  ^U\  i  ^  /•>  ^  U\ 

3^  (k  32  +  <k  5yl 

finite  difference  form  for  each  one  of  the  mesh  points 
results  in  the  symmetric  matrix  B' ,  which  wheg^  pre-  and 
post-multiplied  by  the  same  diagonal  matrix  D  Vi-  still 
remains  symmetries  (This  is  true  of  any  two  symmetric 
matrices  X  and  Y,  for 

T  =  XT  YTXT  =  X  Y  X) 
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Figure  JL .  /  A  Two  -Dimensional  Plane 
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In  the  work  of  Wei  and  Prater,  the  matrix  differen- 

i 

tial  equation  (II05)  simplifies  to 

E  £  (II. 6) 

composition  vector;  and 

rate  constant  matrix,  with  the  constraints 
*  1*0  (II. 7) 

mole  fraction  of  ith  component;  and 

0  ( II o 8)  . 

In  their  work,  Wei  and  Prater  prove  that  for  every 
system  which  can  be  represented  by  equations  (II 0 6)  through 
(IIa8)  ,  there  exists  a  hypbthetical  species  (i  -  1  to  n)  , 

for  which  the  rate  equations  are  completely  uncoupled,  unlike 

/ 

( 

the  system  represented  by  equation  (II 0 6) 0  They  also  develop 
this  hypothetical  species  which  they  prove  to  be  a  certain 
linear  combination  of  the  original  species  aQ  The  weighting 
factors  used  in  the  linear  combination  are  shown  to  be  the 
elements  of  the  eigenvectors  of  the  rata  constant  matrix  K, 

t  4 

or  in  matrix  notation 

a  =  X  £  and  £  =  X-1  ct  (II. 9) 

where  X  is  the  matrix  of  eigenvectors  of  K,  in  which  the 
eigenvectors  are  arranged  column  wise.  The  lengths  of  each 
of  these  eigenvectors  is  dictated  by  other  conditions  in  the 


da 

dt 

where  a  = 

K 
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problem,  and  will  not  be  discussed  here.  Equation  (II. 6) 
in  terms  of  the  hypothetical  species  becomes 

dg 

—  =  A£  (II. 10) 

dt 

where  _A  “  a  diagonal  matrix  whose  diagonal  elements 

are  the  eigenvalues  of  K. 

Geometrically,  the  g  species  may  be  looked  upon  as 
the  a  -  species  in  a  different  coordinate  system,  namely 
the  coordinate  system  of  the  eigenvectors  of  K.  Each  "com¬ 
ponent'1  of  the  .g-species  is  a  projection  onto  one  of  these 
eigenvectors.  One  of  the  very  important  properties  of  an 
eigenvector  of  a  matrix  is  that  when  premultiplied  by  the 
matrix,  the  eigenvector  undergoes  a  change  in  length  only, 
but  not  in  its  direction.  In  other  words,  these  eigenvectors 
are  the  "straight  line  paths"  in  an  n-dimensional  space, 
and  Wei  and  Prater  developed  a  very  elegant  method  of  determ¬ 
ining  these  paths  for  a  complex  first  order  reaction  system; 
when  once  these  paths  are  determined,  the  determination  of 
the  rate  constant  matrix  K  is  easily  accomplished  through  a 
similarity  transformation.  After  the  mathematical  analysis 
is  started  with  any  arbitrary  initial  conditions,  the  method 
is  capable  of  dictating  the  next  initial  condition  for  the 
experiments  so  that  the  straight  line  paths  can  be  arrived 
at  with  a  minimum  of  experimental  effort. 

The  method  proposed  here,  which  is  based  on  the 
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semi-discrete  form  (II. 5)  of  the  diffusion  equation,  is 
considered  from  the  two  points  of  view,  the  forward  problem 
and  the  inverse  problem.  The  mathematics  developed  for 
the  forward  problem  are  rigorous  and  the  method  is  generals 
it  can  account  for  any  type  of  spatial  variation  of  prop¬ 
erties,  provided  the  discretisation  using  the  lumped  para¬ 
meter  concept  does  not  introduce  large  errors;  any  time- 
dependent,  but  linear  boundary  conditions  can  be  handled. 
However,  the  condition  of  radiation  at  a  boundary,  prop¬ 
ortional  to  the  fourth  power  of  temperature  cannot  be 
handled. 

Because  of  the  nature  of  the  inverse  problem,  the 
theory  can  be  divided  into  two  clear  categories: 

1.  theory  for  a  homogeneous  medium;  and 

2.  theory  for  a  non-homogeneous  medium. 

As  may  be  readily  seen,  the  coefficient  matrix  for  a  homo¬ 
geneous  medium  is  known  (except  for  a  constant  multiplic¬ 
ative  factor,  which  is  the  homogeneous  diffusivity) ,  con¬ 
trary  to  the  case  of  a  non— homogeneous  medium.  However, 
certain  known  properties  of  the  coefficient  matrix  for  a 
non-homogeneous  medium  are  made  use  of  in  developing  the 
theory  for  this  case.  This  is  discussed  in  Ch.  VI.  The 
theory  of  the  inverse  problem  for  a  homogeneous  medium  is 
given  here. 
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A.  Forward  Problem . 

The  solution  to  the  forward  problem  is  a  general 
solution  of  equation  (11.5): 

d  w  ( t ) 

-  =  B  w(t)  +  s(t)  (II. 5) 

dt 

with  the  initial  conditions  w(o)  =  w  . 

—  O 

Since  B  is  a  real,  symmetric  and  negative-definite 
matrix,  it  is  evident  that*: 

1.  B  has  n  real,  non-positive  eigenvalues  (n  is  the 
order  of  the  matrix) ;  and 

2.  B  has  n  real  and  mutually  orthogonal  eigenvectors 
£j ( j«l  to  n)  satisfying  the  relation 

q j * =  o  if  i  /  j  and  q^‘q^  =  constant  (II. 11) 
Furthermore,  if  the  vectors  c[j  are  so  chosen  that 
they  are  of  unit  length,  then  they  are  orthonormal,  which 
makes 

a-1  =  2T  (11.12) 

Q  —  matrix  of  eigenvectors  of  B,  whose  columns 

are  the  normalised  eigenvectors  q  ^ .  Superscript 
T  refers  to  the  transpose. 

This  particular  way  of  choosing  the  individual  eigen¬ 
vectors  make  Q  an  orthogonal  matrix. 

A  new  variable  v  is  defined  by  the  equation 

v ( t )  =  QTw ( t )  and  w(t)  =  Q  v(t)  (11.13) 

*  The  proofs  of  various  theorems  of  matrix  algebra  are 
given  in  Appendix  A . 
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Replacement  of  w(t)  by  v(t)  in  equations  (II. 5) 


yields 


dv(t) 

Q  -  =  B  Q  v(t)  +  _s (t) 

dt 

T 

Premultiplication  by  Q  gives 


(11.14) 


d  T  T 

-  *  Q  B  Q  v(t)  +  2  s(t) 

dt 


(11.15) 


Now,  the  operation  Q1  B  Q.  of  equation  (11.15)  on 
the  symmetric  matrix  B  is  a  similarity  transformation, 
which  serves  to  diagonalise  the  matrix  B  resulting  in  the  diag¬ 
onal  matrix  J?,  whose  diagonal  elements  are  the  eigenvalues 
of  B .  In  matrix  notation. 


Q  B  Q  =  P 


n 


where  p.  (i  =  1  ton)  are  the  eigenvalues  of  B. 
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sT  = 


Lll  421 


l12 


•  •  • 


Lln 
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hi 


Tin 


(11.18) 


Ql  s(t)  - 


T 


Equation  (XI. 15)  now  becomes 


dv(t) 

-  =  P  v(t)  +  Q  s 

dt 


3i*  »  H2X  Ji(t) ,  .  .  *,qnTs(t) 


-T 


Each  individual  equation  of  the  matrix  equation 
(11.20)  may  be  written  as 


(11.19) 


(11.20) 


d  v .  (t) 
dt 


=  P  .  V . 

3  3 


+  Sj  .§(t) 


(11.21) 


(j  =  1  to  n) 

This  is  a  first  order  linear  ordinary  differential 

equation  in  one  variable  v^ (t)  with  the  initial  condition 

T 

v.  (o)  *  v.  ~  (  *  S  4  H(°)  ) 

J  J  >  °  J 

and  is  effectively  decoupled  from  the  other  variables 

v. (i  f  j) .  Equation  (II. 2l)  may  be  integrated  to  give 
1  t 


(11.22) 
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Equation  (11.23)  is  the  general  solution  of 
equation  (II. 5) ,  but  can  be  put  into  a  compact  matrix 
form  through  some  rearrangement. 

In  long  form,  equation  (11.23)  may  be  written  as 
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(XI o  24) 


Premultiplication  of  equation  (II. 24)  with  Q  gives 
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(11.26) 


and 


(11.27) 


So,  substitution  of  equation  (11.26)  into  the  first 
term  of  equation  (11.25)  and  of  equation  (11.27)  into  the 
integral  of  the  second  term  of  equation  (11.25)  gives 
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n  [an  ^(a)]  da 


The  following  notation  is  employed: 


E(t)  = 


Pjt 
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P  t 
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E“1(t)  - 


(11.28) 
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h  (t)  = 
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So,  equation  (11.28)  may  be  written  as 
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w(t)  =  Q  E(t)  Q 
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w 
— o 


+  J  Q  E_1  (a)  aT  s(a)  da  1 


Finally,  u(t)  =  D"^w(t)  from  equation  (II. 4) 


't 

Also,  w  =  W-  u(o)  and  s(a)  =  ET 2  s' (a). 
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So,  premultiplication  by  and  substitution  for 


the  other  values  gives 


u(t)  =  D"'2  Q  E(t)  £T  D^2  u(o)  + 
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(11.32) 


Equation  (11.32)  represents  the  general  solution, 


rigorous  after  the  approximation  of  discretisation  of 
space  derivatives,  to  the  general  diffusion  equation  (II. 1) . 

If  the  boundary  condition  vector  js'  (t)  is  simple,  the  in¬ 
tegral  term  of  equation  (11.32)  may  be  evaluated  analytically; 
otherwise,  recourse  to  numerical  integration  methods  has  to 
be  sought . 

The  solution,  of  course,  involves  the  evaluation 
of  the  eigenvalues  and  eigenvectors  of  the  matrix  B„ 

B.  Inverse  Problem  For  a  Homogeneous  Medium. 

The  general  theory  is  developed  by  considering  the 
process  of  unsteady-state  heat  transfer  as  an  example.  For 
the  case  of  a  one-dimensional,  homogeneous  body,  the  start¬ 
ing  partial  differential  equation  is 
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Dimensional  Homogeneous  Medium 


where 


dt  bx2 

a  =  diffusivity  of  the  medium  and 

x  =  distance. 

Typical  initial  and  boundary  conditions  are: 


26 


(11.33) 


I.C:  at  t  -  o, 
B.C:  at  x  =  o , 
at  Xs*  1, 


u  *  f(x) 

u  =  constant,  c^ 
=  constant,  c2 


(11.34) 


(The  boundary  conditions  do  not  have  to  be  exactly  as  they 
are  in  equation  (11.34)?  they  can  be  any  combination  of 
these  two  at  the  two  ends.  Fig.  II. 2  illustrates  the 
typical  grid  spacing  for  the  above  boundary  conditions  and 
may  have  to  be  altered  a  little  to  suit  the  particular 
boundary  conditions) . 

The  distance  O^x^l  of  the  body  is  divided  into 

a  finite  number  of  distance  increments  (n)  of  equal  width 

hi 

h,  with  an  increment  of  width  ^  to  the  boundary  where 

flux  is  specified,  as  shown  in  Fig.  II. 2.  The  tempera¬ 
tures  at  each  of  these  grid  points  is  specified  by 

ul»  u2>  •  •  •>  un* 

A  set  of  ordinary  differential  equations  can  now 
be  written  to  describe  the  unsteady-state  process  in  the 
body,  as  follows: 

dun  a 

=  (Ci  _  2Ul  +  u2) 


dt 


(II. 35.1 
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a 

=  ^2  (U1  -  2u2  +  u3> 


au 


n-1 


dt 


a 

(u  0  -  2u  ,  +  u  ) 
^2  n-2  n-1  n ' 


du 

n 

dt 


a 


2un  + 


(II. 35. 2) 


(11.35. (n-1)) 


(II.35.n‘) 


Using  the  flux  condition  of  equation  (11.34)  an 

expression  for  temperature  at  the  hypothetical  point  u* 

in  terms  of  u  may  be  obtained  as  follows; 

n 

At  n  +  1:  the  boundary  condition  specifies  that 


Un  Un+1  _ 

(h/2)  c2>  or  un+l 


h 

u  -  c  5 

n  z  z 


(11.35. (n+1) ) 


Also,  from  conservation  of  energy,  the  following 
expression  holds; 


u  ,,  -  u ' 
n+1  n  


(h/2)  c2  or  -  n  •  -2  2 

Combining  the  last  two  equations  gives 


u '  +  c, 


(11.35. (n+2) ) 


u 


n 


=  u  -  ch 
n  2 


(11.35. (n+3) ) 


Substitution  of  the  above  expression  into  equation 
(II.35.n')  gives 


du  a 

— -  =  —x  (u  -i  —  u  —  c  h) 

.2  n-1  n  2 

dt  h 


(II . 35 .n) 


Equations  (II. 35.1)  through  (II.35.n)  may  be 
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written  as  a  single  matrix  equation  as  follows: 


a  dt 


u 

n 


-2  1 

0  ....  0 

"V 

_ci 

1  -2 

1  •  •  •  •  0 

• 

0 

0 

V 

% 

<  •  % 

• 

+ 

• 

• 

0 

• 

• 

• 

1-2  1 

• 

0 

0 

0  1-1 

u 

n 

-c2h 

— 

_ 

(11.35) 


In  matrix  notation,  this  equation  may  be  written 


as 


d 

dt 


(u(t) ) 


=  B  u(t)  +  s 


(11.36) 


with  the  initial  conditions  u(o)  ■  u  . 

—  — o 

A  new  variable  v(t)  is  defined  by  the  equation 

v(t)  =  u(t)  and  u(t)  =  Q  v(t)  (11.37) 

T 

where  matrices  £  and  Q  are  as  defined  before.  Substitution 
in  equation  (11.36)  gives 


h2  dv(t) 

eT-fl-at - is  v(t)  +  s 

T 

Premultiplication  by  Q  gives 


h 


2 


<*V(t)  m  T 

-  fi  B  v(t)  +  Q  a 


(11.38) 


(11.39) 


h2  dv(t)  T 

Or  —  — ST —  “  P  v(t)  +  Q  s  (11.40) 

a  dt  -  —  — 

where  the  matrix  P  is  as  defined  before. 
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Each  individual  equation  is  written  as 


h  dv . (t) 

—  — 2 -  =  p  v.  (t)  +  r. 

a  dt  ^  D  ^ 

(j  ■  1  to  n) 

r  j  =  q j  S  and  r  =  QT  s 
The  initial  conditions  for  these  ordinary  dif- 

m 

ferential  equations  are  v.(o)  =  v .  (=  a .  u(o)) 

3  j  j  ^  3 

Integration  of  equation  (XX. 41)  gives 


where 


(11.41) 


(11.42) 


In  z ^  (t) 


In 


+  ri 

Pjvj,o  +  rj 


(11.43) 


( j  ■  1  to  n)  . 

Equation  (11.43)  says  that  a  plot  of  In  Zj (t)  as 

ordinate  with  t  as  abscissa  should  result  in  a  straight 

ap . 

line,  whose  slope  equals  — .  Therefore,  if  data  of 

n 

temperature  profiles  as  a  function  of  time  are  available, 
the  left  hand  side  of  equation  (11.43)  can  be  easily  cal¬ 
culated  (knowing,  of  course,  the  eigenvalues  and  eigen¬ 
vectors  of  B)  and  these  values  can  be  plotted  and  the  slope 
evaluated.  From  the  known  values  of  slope,  p^  and  h,  a 
can  be  readily  calculated. 

Although  this  derivation  is  presented  for  the  case 
of  transient  thermal  conduction,  the  model  is  just  as 
valid  for  the  process  of  diffusion  of  a  substance  due  to 
concentration  gradients,  or  the  molecular  diffusion  of  a 


substance . 
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IIIo  FORWARD  PROBLEM 

In  this  chapter,  solutions  to  some  of  the  transient 
conduction  problems  are  presented.  The  coefficient  matrices 

are  developed  for  each  one  of  these  cases,  and  the  techniques 

/ 

used  for  the  determination  of  eigenvalues  and  eigenvectors 
of  the  coefficient  matrix  are  discussed  in  some  detail. 

A.  Homogeneous  Media 

1.  One-Dimensional  Media s  Firstly,  it  is  pertinent  at 
this  stage  to  establish  a  check  on  the  accuracy  of  the 
semi-analytical  method.  For  this  purpose,  a  very  simple 
problem  involving  unsteady- state  heat  transfer  was  solved. 

The  problem  may  be  stated  as  follows s 

A  one-dimensional  slab  of  thickness  21,  and  uni¬ 
form  thermal  diffusivity  a  is  initially  at  a  uniform  temp¬ 
erature  of  unity.  At  time  zero,  both  its  boundaries  are 
suddenly  brought  to  a  temperature  zero  and  maintained  at 
that  temperature.  It  is  required  to  evaluate  the  tempera¬ 
ture  profiles  at  various  elapsed  times. 

The  partial  differential  equation  describing  the 
process  of  heat  transfer  in  the  above  problem  is 

o  u 


du 

dt 


a 


(III.l) 
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I.C:  at  t  =  0,  u  =  1.0,  0^xe£21 
B.Cs  at  x  =  0  =  21,  u  -  0.0 
Also  at  x  =  1,  ^  ~  0  by  symmetry 


(III. 2) 


An  analytical  solution  to  equation  (III.l)  with  the 
boundary  conditions  (III. 2)  is  given  by  McAdams  (14) , and  is 
as  follows; 


u 


4 

7T 


exp  (-ajX)  sin  (^)  +  exp  (-98-^)  sin  (~p) 


+  exp  (-25a-^X)  sin  (f^)  +  .  .  . 


(III. 3) 


where 


•i  =  (f> 2 


and  X  = 


at 


Equation  (III. 3)  is  used  to  check  the  accuracy  of 

the  solutions  obtained  by  the  semi-analytical  method. 

Since  the  body  is  symmetrical  about  the  centerline, 

only  one-half  (Q^x<l)  is  considered  in  the  semi-analytical 

method.  This  distance  is  divided  into  a  five-point  grid  of 

ll 

equal  distances  h,  with  a  half-slab  j  near  the  insulated 
boundary  (Fig.  III.l) „  When  the  space  derivative  at  these 
grid  points  is  replaced  by  the  appropriate  finite-difference 
formulae,  the  following  matrix  ordinary  differential  equation 
is  obtained; 


~U1 

”-21000 

ui 

U2 

1-2100 

u2 

a 

U3 

-  h2 

01-210 

u3 

u4 

001-21 

U4 

_u5_ 

0001-1 

_U5_ 

d__ 

dt 


(III. 4) 
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The  solution  is  straightforward,  and  is  given  by 


where 


u(Q)  *  £  E(0)  QT  uq  (III. 5) 

9  *  ,  the  dimensionless  time, 

n 


For  this  particular  case,  the  coefficient  matrix  B,  the  matrix 
of  eigenvectors  £  and  the  diagonal  matrix  E(0)  are  given  in 
Appendix  B. 

Table  III.l  gives  a  summary  of  results,  together 
with  the  analytical  solution  and  the  associated  errors.  The 
complete  set  of  results,  together  with  the  computer  program 
is  given  in  Appendix  B.  As  may  be  noted  from  Table  III.l, 
the  associated  errors  are  very  small.  This  verifies  the 
validity  of  the  model  and  confirms  that  the  numerical  errors 
associated  with  the  evaluation  of  eigenvalues  and  eigenvectors 
are  quite  insignificant  in  this  case. 

Appendix  B  also  gives  B,  £  and  E(9)  obtained  by  em¬ 
ploying  a  ten-point  grid  for  the  same  problem.  The  results 
and  comparisons  from  the  analytical  solution  are  given  in 
Table  III. 2.  As  may  be  noted,  the  comparisons  are  an  order 
of  magnitude  better.  The  complete  results  are  given  in 
Appendix  B. 


2.  Two-Dimensional  Media;  Very  few  analytical  solutions 
are  available  for  problems  in  multi-dimensional  media.  The 
methods  of  solution  that  have  been  successfully  used  to  date 
are  essentially  numerical  in  nature.  Both  explicit  and 
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TABLE  III.l 


One-Dimensional  Homogeneous  Media 


Summary  of  Results*  -  Five-point  Grid. 


Grid 
\yPoint 
Dimen 
sionless 
time  0 

1 

3 

5 

4.0 

0.2769 

0.2759 

-0.0010 

0 . 7046 
0.7065 
0.0019 

0.8825 

0.8890 

0 . 0065 

12.0 

0.1348 
0.1348 
—0 . 0000 

0 . 3616 
0.3616 

0.0000 

0.4734 

0.4735 

0.0001 

20.0 

0.0705 

0.0702 

-0.0003 

0.1891 

0.1883 

-0.0008 

0.2476 

0.2466 

-0.0010 

*  The  first  entry  in  each  block  refers  to  the  value 
of  u,  calculated  by  the  semi-analytical  technique;  the 
second  entry  refers  to  the  value  of  u  calculated  analytic¬ 
ally;  the  third  entry  represents  the  error  -  the  value 
calculated  analytically  minus  the  value  calculated  by  the 
proposed  method. 

A  complete  set  of  results  in  tabular  form  is 
available  in  Appendix  B. 
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TABLE  111,2 


One-Dimensional  Homogeneous  Media 
Summary  of  Results*  -  Ten-point  Grid 


Grid 

\\Point 
Dimen^'v 
sionless^v 
time  0 

1 

5 

10 

4 

0  *  2775 
0.2763 
-0.0012 

0.9195 

0.9229 

0.0034 

0.9990 

0.9995 

0.0005 

20 

-0.1246 

0.1246 

0 . 0000 

0.5592 

0.5594 

0.0002 

0.8030 

0.8042 

0.0012 

70 

0.0397 

0.0396 

-0.0001 

0.1810 
0.1808 
— 0 . 0002 

0.2653 

0.2650 

-0.0003 

*  The  first  entry  in  each  block  refers  to  the  value 
of  u,  calculated  by  the  semi-analytical  technique;  the 
second  entry  refers  to  the  value  of  u  calculated  analytic¬ 
ally;  the  third  entry  represents  the  error  -  the  value 
calculated  analytically  minus  the  value  calculated  by  the 
proposed  method 0 

A  complete  set  of  results  in  tabular  form  is 
available  in  Appendix  B„ 
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implicit  methods  have  been  used  (1^,13,23) successfully. 

In  the  semi-analytical  solution  of  transient  heat 
conduction  problem  in  a  two-dimensional  medium,  the  simplest 
initial  and  boundary  conditions  were  chosen.  The  reason 
for  this,  again  is  that  an  analytical  solution  is  available 
for  this  simple  case  (15) ,  so  that  comparison  of  results  was 
possible.  This  analytical  solution  was  in  fact  used  for 
the  purposes  of  comparison  with  the  results  of  the  semi- 
analytical  solution. 

The  solution  to  the  following  problem  was  considered: 


Su  _  a  /ifu  + 
dt  x3x2  dy  / 


a^x^a 


-  b=^y^b 

with  the  initial  and  boundary  conditions 

4 

I.cs  at  t  s  0,  u  =  1 o 0 
B.C:  at  x  =  a  =  -a,  u-G 
at  y  =  b  =  »b,  u  =  0 
These  boundary  conditions  imply  that 

du  _ 


at  x  5 


•  ~ 0 
du  _ 


at  y  s  0,  ^ 


0 


This  problem  was  solved  for  two  cases: 
a  =  b,  or  a  square  body, 
a  f  b,  or  a  rectangular  body. 


(III. 6) 


(III. 7) 


(III. 7a) 


i) 

ii) 


. 
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In  each  of  the  above  two  cases,  the  solution  for 
one  quarter  of  the  body  was  determined,  since  the  solution 
for  the  rest  of  the  body  can  be  determined  from  this  solut 
ion. 


The  derivation  of  the  coefficient  matrix  B  is 


illustrated  for  the  case  of  a  rectangular  body  with  the 
following  values  of  the  parameters s 


a  “  6.5,  Ax  -  1.0 


b  =  3  o  5 ,  Ay  58  1.0 


(III. 8) 


It  is  not  necessary  to  have  Ax  =  Ay  so  that  the 
matrix  B  is  symmetric,  but  in  the  example,  this  was 
convenient . 

The  finite-difference  grid  is  shown  in  Fig.  III. 2. 
The  set  of  ordinary  differential  equations  for  this  problem 
may  be  written  ass 


dUj 

dt 

du, 

dT 

du. 

dt 

duz 

dt" 

du, 

dt" 

du, 

dt 


=  a(-4u^  +  u2  +  u7) 

=  a(u1  -  4u2  +  u3  +  u8) 
■  a(u2  -  4u3  +  u4  +  u9) 

=  a(u3  -  4u4  +  u5  +  u1Q) 

=  a(u4  -  4u5  +  u6  +  ulx) 

=  a(u5  -  3u6  +  u12) 


(111. 9.1) 

(111. 9. 2) 

(111. 9. 3) 

(111. 9. 4) 

(111. 9. 5) 

(111. 9. 6) 
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du^ 

dt~  =  a(ul  "  4u7  +  u8  +  u13> 

(III. 9. 7) 

dug 

dt-  =  a(u2  +  u7  ~  4u8  +  U9  +  u14> 

(III. 9. 8) 

dU9 

dt  "  a(u3  +  u8  “  4u9  +  u10  +  U15) 

(III. 9. 9) 

du10 

dt  a(u4  +  u9  "  4u10  +  UH  +  «ie> 

(III. 9. 10) 

dull 

dt  a(u5  +  u10  "  4ull  +  u12  +  u17} 

(III. 9. 11) 

du12 

dt  a^u6  +  U11  “  3u12  +  u18^ 

' 

(in.  9.  i2); 

i 

t 

du13 

dt  a*u7  "  3u13  +  U14J 

» 

i 

(III.9.13)j 

du14 

dt  a(u8  +  u13  '  3u14  +  “is) 

. 

(III. 9. 14)‘ 

du15 

dt  a^u9  +  u14  ~  3u15  +  u16^ 

1 

1 

1 

(III. 9. 15) 

du16 

dt  a*u10  +  u15  ~  3u16  +  u17^ 

< 

( III o  9 . 16) 

du,  _ 

dt  a(ull  +  U16  ~  3u17  +  u18^ 

(III. 9. 17) 

du18 

dt  =  “(U12  +  U17  -  2u18) 

(III. 9. 18) 

These  equations  are  obtained  by  substitution  of  the 


following  expressions  for  the  space  derivatives  at  these 
grid  points: 
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-N  2 

o  u 

_  ux-Ax  ”  2ux+uxtAx 

*  2 
ox 

*,y 

Ax2 

d2u 

-  Uy-Ay~  2uy+uyt-Ay 

3y2 

*,y 

CM 

>1 

< 

1 

and 


(III. 10) 


Equations  (III. 9.1)  through  (III. 9. 18)  may  be  put 
into  one  matrix  differential  equation  as 


1  du 
a  dt 


B  u 


(III. 11) 


The  matrix  B  of  equation  (III. 11)  appears  in  Appendix 
C.  The  solution  of  the  above  equation  is  straightforward. 
The  eigenvectors  and  eigenvalues  of  B  are  also  given  in 
Appendix  C.  A  summary  of  results  at  selected  grid  points 
along  with  the  results  from  the  analytical  solution  at  these 
points  and  the  associated  errors  are  given  in  Table  III. 3. 
The  analytical  solution  for  this  problem  was  obtained  by 
multiplying  the  solutions  for  the  two  one-dimensional  prob¬ 
lems,  according  to  the  method  of  Newman  (  15)  . 

As  may  be  seen  from  Table  III. 3,  the  results  are 
satisfactory.  The  relatively  poor  agreement  of  results  at 
low  values  of  dimensionless  time  suggests  that  the  method 
may  be  getting  insensitive  as  the  size  of  the  problem  gets 
bigger.  This  is  probably  due  to  the  accuracy  with  which 
the  eigenvalues  and  eigenvectors  are  determined.  This  is 
evident  from  the  check  of  the  similarity  transformation  to 
produce  the  original  matrix  (Appendix  C) . 
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TABLE  III. 3 


Two-Dimensional  Homogeneous  Media 
Summary  of  Results*  -  Rectangular  Body 


N\Grid 
\Point 
at  n. 

Ax2  \ 

1 

2 

9 

10 

17 

18 

1.0 

0.2742 

0.2709 

-0.0033 

0.4357 

0.4386 

0.0029 

0  j.  7925 
0.8137 
0.0212 

0.8221 

0.8383 

0.0162 

0.9426 

0.9610 

0.0185 

0.9440 

0.9614 

0.0174 

6.0 

0.0376 

0.0374 

-0.0002 

0.0720 

0.0717 

-0.0003 

0.1817 

0.1812 

-0.0005 

0.2208 

0.2207 

-0.0001 

0.3074 

0.3077 

0.0003 

0.3232 

0.3247 

0.0015 

10.0 

0.0128 

0.0126 

-0.0002 

0.0249 

0.0245 

-0.0004 

0.0637 

0.0629 

-0.0010 

0.0788 

0.0777 

-0.0011 

0.1114 

0.1098 

-0.0016 

0.1180 

0.1168 

-0.0012 

*  The  first  entry  in  each  block  refers  to  the  value  of 
u,  calculated  by  the  semi-analytical  technique;  the  second 
entry  refers  to  the  value  of  u  calculated  analytically;  the 
third  entry  represents  the  error  -  the  value  calculated  anal¬ 
ytically  minus  the  value  calculated  by  the  proposed  method. 

A  complete  set  of  results  in  tabular  form  is  available 
in  Appendix  C. 
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TABLE  III. 4 


Two-Dimensional  Homogeneous  Media 

Summary  of  Results*  -  Square  Body 


\  Grid 

Point 
at  \. 

Ax2 

1 

7 

13 

19 

25 

1.0 

0.2743 

0.2709 

-0.0034 

0.6927 

0.7101 

0.0174 

0.-9107 

0.9334 

0.0226 

0.9800 

0.9907 

0.0107 

0.9958 

0.9991 

0.0033 

6.0 

0.0501 

0.0501 

0.0000 

0.1821 

0.1824 

0.0003 

0.3495 

0.3512 

0.0017 

0.4980 

0.5020 

0.0040 

0.5838 

0.5896 

0.0058 

12.0 

1  > 

0.0182 

0.0182 

0.0000 

0.0669 

0.0669 

0.0000 

0.1307 

0.1308 

0.0001 

0.1893 

0.1894 

0.0001 

0.2241 

0.2242 

0.0001 

*  The  first  entry  in  each  block  refers  to  the  value 
of  u,  calculated  by  the  semi-analytical  technique;  the 
second  entry  refers  to  the  value  of  u  calculated  analytic¬ 
ally;  the  third  entry  represents  the  error  -  the  value 
calculated  analytically  minus  the  value  calculated  by  the 
proposed  method* 

A  complete  set  of  results  in  tabular  form  is 
available  in  Appendix  C. 
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The  matrix  B  for  the  case  of  a  square  body 
(Fig,  III .3)  is  given  in  Appendix  C?  a  summary  of  results 
appears  in  Table  111,4. 

The  complete  sets  of  results  and  the  relevant 
programs  are  given  in  Appendix  C, 


B,  Non-Homogeneous  Media 
Analytical  solutions  to  problems  involving  non- 
homogeneous  media  are  very  scarce  (6,10  )?  the  few  that  are 
available  are  for  special  cases  of  property  variations  across 
the  medium  (6),  Most  problems  of  this  nature  are  usually 
solved  using  numerical  methods. 

The  semi-analytical  solution  for  the  case  of  a 
non-homogeneous  medium,  where  the  properties  are  dependent 
on  the  three  space  coordinates  but  not  on  time  or  tempera¬ 
ture  is-  presented  here,  A  one-dimensional  body  with  no 
sources  or  sinks  is  considered  as  an  example. 

The  partial  differential  equation  describing  the 
process  is 


where 


conditions 


du  _  d 
c  5t  ~  ^ 


du» 


(111,12) 


=  f. 


k  =  f9(x)  and  with  the  initial  and  boundary 

4L> 


I,Cs 

B,Cs 


at  t  *  0,  u(x) 

at  x  *  0,  u  =  u 

,  du  _ 

at  x  -  1,  33J  - 


=  u 


hi. is: 


'{bod  9*sj?ype  & 

ztrrf>'/f;  £e*x  .  -  a  ...  . 

ii  •  -  $  .  •  a.  V50H-CJ 


J5  ° 


■■ 


•  y-.< s 

■ 

,  .  . 
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The  body  O^x^-l  is  divided  into  a  finite  number 

of  increments  (n)  of  width  Ax  each,  with  a  slab  of  width 
Ax 

~2~  near  the  boundary  where  flux  is  specified,  as  shown  in 
Fig.  Ill .  4. 

If  the  thermal  conductivity  and  the  heat  capacity 
of  the  medium  may  be  represented  by  discrete  values  for 
each  one  of  these  grid  points,  the  partial  differential 
equation  (III. 12)  can  be  written  as  a  set  of  ordinary 
differential  equations  by  discretisation  of  the  space  der¬ 
ivative.  Typically,  the  heat  balance  on  the  ith  element 
is  given  by 


c . 


du. 

l 


-ai)  _  (uj-uj+i) 


Ax 


Ax 


i  dt 


(III. 14) 


Ax 


(i  =  1  to  (n-1)) 


At  the  boundary  where  flux  is  specified,  the 


equation  is 


du 


n  


n 


dt 


k  i  (u„  -,-u  ) 
n-fe  n-l  n 

'  -A—? 

Ax 


(III. 15) 


In  equations  (111.14)  and  (III. 15),  the  effective 
thermal  conductivity  between  the  ith  and  (i+l)th  elements 
is  taken  as  that  value  for  a  point  half  way  between  the  ith 
and  (i+1) th  planes  and  is  designated  by  ki+  .  This  is  a 
valid  approximation  provided  the  function  k  =  f 2  ( ■x;)  -*-s  no^ 


discontinuous . 
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The  equations  (III .14)  and  (III. 15)  may  be  written 
in  matrix  form  as  follows: 


-  - 

— 

C1 

ui 

C2 

o 

o 

o 

• 

d 

e 

dt 

9 

9 

c 

n 

u 

n 

-(ki+  k^)  0  .  o  .  .  o  .  0 

ui 

- 

ki^-(k^+k2^  k2^0  o  .  .  .  0 

o 

0 

•  •  o 

9 

+ 

o 

© 

9  0  o 

k  ,!“(k  .,tk.)k  , 

nyl%  '  n-l^  n-s^  n-3g 

9 

9 

o 

9 

k  ,  -(k  ,  ) 

n=  ^  n-  ^  ' 

U 

n 

L_  _ 

0 

(III. 16) 


In  accordance  with  equation  (II. 2) ,  th^  various 
matrices  are  designated  as 


“ 

—  T" 

Ci/S2 

~  k^  ^  k^  jO  coo....  0 

9 

k.  -a  -(ko.+k^o)  k0„  0  o  .  .  .  0 

ih  2h  2h 

9 

;  B'  - 

9  0  9 

9 

9  9  • 

O 

9 

9  9  9 

k  ,  ( k  ,+k  ,  )  k 

n-1^5  n—  l  n-%  n—Jj 

_  Cn/Ax2_ 

k  .  - (k  , ) 
n-k  n-y 

, 


woi.Io&  ub  art  j:  hi  ,1  ni 


XA 


• 

1  A -**-*-** 


et/ol-ifiv  F,rf;t  (S.J.I)  nol$&vp9  rt3iw  eonsM  ooob  ni 

.  •  b  ?r;v  '*■>£»  k?  k-D/. 
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s'(t)  = 


u  k. 


0 


0 


(III . 17) 


D  is  a  positive  diagonal  matrix  since  the  heat  capacity  of 
each  of  the  elements  is  positive. 

The  solution  for  equation  (III .16}  is  given  by 
equation  (11.32) ,  and  is 


u(t)  =  D~%  Q  E(t) 


£ 


u  +  /  D~^2  Q  E”1  (a)  £T  D“^_s '  (a)  da 


(III. 18) 


where  a  is  a  dummy  variable; 


(ci/a52)% 

-  ~  -h  1 

(Ax  /c^ 

= 

O 

© 

H 

«l 

o «» 

© 

• 

o 

% 

(c  /  t*~2) 
n'  Ax 

(ax2/c  y 

n 

B  *  D  2  B'  D  2  7 

Q  —  matrix  of  eigenvectors  of  B; 
p_^  =  eigenvalues  of  B(i  =  1  to  n)  ; 
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E(t)  = 

"ePlt 

• 

• 

7  E“1(t)  - 

- P 
e 

• 

• 

'  V 

e 

-p  t 

_  e  n 

The  results  presented  are  for  the  following  values 
of  the  various  parameters : 

fj(x)  *  1.0  (a  constant) 

f2(x)  =  1.0  +  0.5x  {a  linear  variation  of  k) 

Uq  ~  o  (initially  at  zero  temperature) 

u  -  1.0  ^ 


(III. 19) 


1  =  6.3 


n  *  10 

Ax  =  0.6 

w 


The  matrix  B,  eigenvalues  p^  and  the  matrix  of 
eigenvectors  Q  are  given  in  Appendix  D. 

An  analytical  solution  could  not  be  found  for  this 
case;  hence  a  numerical  solution  using  the  explicit  method 
was  obtained  for  two  different  values  of  Ax  and  At.  The 
solutions  agreed  to  4  significant  figures.  Hence,  this 
solution  was  assumed  to  approach  the  true  solution. 

A  summary  of  results  from  the  semi-analytical 
solution  and  the  numerical  solution,  along  with  the  assoc¬ 
iated  errors  is  given  in  Table  III. 5.  The  results,  as  may 
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TABLE  III. 5 


One-Dimensional  Non-Homogeneous  Media 

Summary  of  Results*  -  Ten-Point  Grid 


x^Grid 

\Point 

Time 

1 

4 

7 

10 

M 

0 

o 

0.6505 

0.6500 

-0.0005 

0.1466 

0.1422 

-0.0044 

0.0272 

0.0242 

-0.0030 

0.0068 

0 . 0052 
—0.0016 

o 

• 

CD 

0.8706 

0.8698 

-0.0008 

0.6341 

0.6323 

—0  o  0018 

0.5267 

0.5245 

-0.0022 

0.4929 

0.4905 

-0.0024 

16.0 

0.9450 

0.9446 

-0.0004 

l 

0.8446 

0.8435 

-0.0011 

0.7989 

0.7976 

-0.0013 

0.7846 

0.7832 

-0.0014 

*  The  first  entry  in  each  block  is  the  value  of  u 
calculated  by  the  semi-analytical  method?  the  second 
entry  is  the  value  calculated  by  the  numerical  solution? 
the  third  entry  is  the  error  -  the  value  calculated  by 
numerical  method  minus  the  value  calculated  by  the  prop¬ 
osed  method. 

A  complete  set  of  results  in  tabular  form  is 
available  in  Appendix  D. 
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be  noticed,  are  highly  satisfactory. 

The  complete  set  of  results  and  the  computer 
program  are  given  in  Appendix  D, 

C.  Eigenvalues  and  Eigenvectors  of  B. 

The  various  methods  of  evaluating  the  eigenvalues 
and  eigenvectors  of  a  symmetric  matrix  may  broadly  be  div¬ 
ided  into  two  categories: 

1.  Non-iterative  or  direct  methods.  These  usually 
require  a  large  number  of  multiplications  and 
hence  are  time-consuming  on  the  computer.  Typical 
of  these  procedures  are  due  to  Leverrier,  Hessenberg, 
and  Givens.  These  are  described  in  some  detail 

by  Lapidus  (12) . 

2.  Iterative  methods.  These  methods  are  the  most 
widely  used  on  the  digital  computers.  They  have 
certain  advantages  over  the  direct  methods,  namely: 

a)  all  the  eigenvalues  are  determined  at  the  same 
time . 

b)  all  the  eigenvectors  are  determined  simultane¬ 
ously,  through  a  set  of  orthogonal  transformations. 
Typical  of  these  methods  are  those  due  to  Jacobi  (25) 

and  Householder  (33) . 

No  attempt  is  made  here  to  develop  the  algorithms 
for  any  of  the  above  methods*  complete  details  are  ava^-l” 
able  in  various  texts  on  numerical  analysis.  However,  the 
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central  ideas  of  the  two  methods  used  in  this  thesis,  the 
Jacobi's  procedure  and  Householder's  procedure  are  presented. 


Jacobi's  methods  This  method  applies  to  symmetric  matrices, 
and  involves  the  annihilation  of  the  off-diagonal  elements 
of  a  symmetric  matrix  using  a  series  of  orthogonal  matrices. 
To  illustrate  the  procedure,  a  matrix  A  of  order  2  is  con¬ 
sidered.  A  matrix  A'  is  formed  by  the  transformation 


where 


% 


cos  a  -  sin  a 
sin  a  cos  a 


(III. 20) 


This  type  of  transformation  is  known  as  rotation. 

If  the  off-diagonal  elements  of  A  '  are  to  be  zero, 
then  the  following  identity  has  to  be  satisfied; 


tan  2a 


all~a22 


(III. 21) 


The  diagonal  elements  of  A  '  are  A^  and  A£,  the 
two  eigenvalues  of  A  (the  eigenvalues  of  A  and  A  are  the 

same  since  A  and  A  '  are  similar) . 

In  the  case  of  a  matrix  of  order  n,  the  matrix 


is  replaced  by  the  matrix 
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(cos  a)  ....  .  -(sin  a)  .  . 

11  i  j 


(sin  a) . .  .  .  .  (cos  a) . . 

Di  33 


1 


(III. 22) 


This  is  a  modified  unit  matrix,  with  its  ith  and  jth 
diagonal  elements  replaced  by  (cos  a),  the  (ij)th  zero  by 
(-sin  a)  and  the  (ji)th  zero  by  (sin  a)  ( j>i)  .  The  angle 
a  is  determined  by  the  expression 


tan  2a  =  -  (III. 23) 

a  •  «  —a  •  • 

11  33 

The  similarity  transformation  of  equation  (11,20) 

annihilates  the  elements  a.  .  and  a...  In  this  method,  the 

13  31  * 

largest  off-diagonal  element  is  first  annihilated,  but  this 
might  show  a  non-zero  value  at  a  later  stage .  Hence  the 
method  has  no  fixed  number  of  iterations. 

When  the  procedure  converges,  the  following  equation 
is  the  result; 

STr  ^r-l  “  •  £  ^  r~  — 

(III. 24) 

where  r  refers  to  the  number  of  iterations  and  Ais  the 


y 


. 

-  •;  '  •  -  •  (’  i  . 

A-.-  L  a:.  qx  3-  '  Sr  >9Cl...m?03*b  ?.X  JD 

'«  -1}  - -  «*  .OS-  fl«f 

. 


.  ..  .  ■  .  r  ■  I 

■ 

.  .  >r  ,  •[ 

.  ;-r.  jj  i  -  :  ti  .  ?.  .un  ■-  l:  >n  as  f  borfism 

«  »•.  •  i  ;6ocjo^j  .5  «*■/ 

srf:t  ax 


•  ••  ■  .  '  .  1 


54 


diagonal  matrix  of  eigenvalues  of  A. 

If  the  matrix  Q2  .  .  .  is  denoted  by  £,  then 


QT  ;  then 


(III. 25) 


QT  A  Q  =/\ 


Premultiplication  by  Q  gives 


A  Q  =  QA 


(III. 26) 


Or  Q  is  the  matrix  of  eigenvectors  of  A. 

Householder ' s  Method;  The  two  saliant  features  of  House¬ 
holder's  method  are: 

1.  It  uses  orthogonal  matrices  which  do  not  produce 
pure  rotation. 

2.  An  element  set  to  zero  does  not  show  up  again, 
reducing  the  number  of  iterations. 

In  Householder's  procedure,  a  matrix  jP  is  defined 
by  the  equation 


P 


I  -  2  w  w 


T 


(III. 27) 


where 


I 


unit  matrix  and 


w  =  a  vector  of  unit  length,  whose  elements 
are  chosen  according  to  the  method 
suggested  in  (  33  ) . 


Now,  P  is  a  symmetric  matrix,  by  inspection  of 
equation  (III. 27).  Also,  it  is  orthogonal,  since 
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PT  P  -  (I  -  2  w  wT)  ( I  -  2  w  wT) 

T  T  T 

=  I_  -  4  w  w  +  4  w  (w  w)  w 

=  I>-4wwT  +  4wwT=_I  (III.  28) 

The  vector  is  chosen  such  that  its  first  (r-1) 

T 

elements  are  zero,  or  wr  38  (0,  0,  ...  0,  xr,  x^  .  .  .  x  ) 


(III. 29) 


2  2 

satisfying  the  relation  x +  xr+1  + 


+  x  =  1 
n 


The  transformation  of  A  to  triple  diagonal  form 
is  affected  in  (n-2)  similarity  transformations  with  J?2, 
P3,  .  .  —n-±>  fo^rnied  with  w2,  w^,  .  .  .  w^_1 .  The  ele¬ 


ments  of  the  w-vectors  are  found  from  a  series  of  relations 


obtained  by  multiplying  the  original  matrix  A  with  w,  the 
details  of  which  are  available  in  ( 33)  .  The  resulting  tri¬ 
diagonal  matrix  is  treated  by  the  method  of  Givens  to  ob¬ 
tain  the  eigenvalues  and  eigenvectors  of  the  tri-diagonal 
matrix.  The  eigenvectors  are  then  premultiplied  by  the 
series  of  matrices  Pn-1»  •  •  • >  £2  to  obtain  the  eigenvectors 
of  the  original  matrix  A. 

The  storage  requirements  of  Householder's  method 
are  shown  to  be  very  satisfactory,  and  are  shown  to  be  only 
(-|  n  (n+1)  +  n)  memory  locations  (  33)  .  This  indeed  is  a 
very  significant  feature  of  the  method,  and  is  consequently 
the  most  commonly  used. 

The  computer  time  for  the  determination  of  eigen¬ 
values  and  eigenvectors  by  Householder  * s  method  is  also 


found  to  be  less  than  that  required  by  Jacobi's  method  for 
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TABLE  III. 6 

Householder  1 s  Method 

Estimated  Time  Requirements  in  Minutes  on  IBM  7090* 


Order  of  the  Eigenvalues  only  Eigenvalues  and  all 

matrix  _  the  eigenvectors. 


10 

0.01 

0.03 

30 

0.14 

0.24 

50 

0.43 

0.69 

100 

2.40 

4.40 

*  From  a  leaflet  published  by  the  Department  of  Educational 
Psychology,  University  of  Alberta,  Edmonton. 
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the  same  matrix.  Typical  time  requirements  by  Householder's 
method  are  given  in  Table  III. 6. 

In  this  thesis.  Householder's  method  was  most 
extensively  used.  The  only  place  where  Jacobi's  method  was 
used  was  when  dual  eigenvalues  are  encountered.  In  this 
situation,  Householder's  method  did  not  produce  the  proper 
eigenvectors  due  to  some  inherent  property  of  the  method, 
whereas  Jacobi's  method  produced  the  proper  eigenvectors. 
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IV.  A  TWO-DIMENSIONAL  PETROLEUM  RESERVOIR 

The  petroleum  reservoir  is  a  very  complex  physical 
system  encountered  by  the  engineer.  Calhoun  (5  )  gives  an 
excellent  summary  of  the  general  nature  and  behaviour  of  a 
petroleum  reservoir.  To  quotes 

1.  Each  petroleum  reservoir  is  an  individual  and  must 
be  treated  as  such  in  its  analysis  and  operation; 

2.  The  well  system  is  a  part  of  the  reservoir. 

Reservoir  control  and  well  control  must  be  considered 
together,  not  separately; 

3.  The  natural  underground  physical  state  of  reservoir 
rocks  and  reservoir  fluids  is  different  from  that 
observed  when  they  are  taken  from  the  reservoir; 

4.  Oil,  water  and  gas  coexist  intimately  in  most 
reservoirs; 

5.  Petroleum  is  not  produced  from  the  containing  rock 
without  some  displacing  energy,  such  as  encroaching 
water  or  expanding  gas; 

>  6.  Petroleum  reservoirs  are  generally  heterogeneous 
in  rock  properties,  fluid  properties  or  energy 
available  for  displacing  oil;  and 

7.  All  reservoir  control  is  accomplished  by  control 

of  fluid  transfer  to,  from  or  within  the  reservoir." 
The  behaviour  of  a  producing  petroleum  reservoir 
is  best  described  by  the  continuity  equation  (IV. 1) . 
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where 


*  soh  It  _  §*)  +  §5  (iP  If)  -  '(iv.D 


<t> 

So 

h 


k  - 

H  = 
Q  * 


porosity  of  formation? 
fraction  of  oil  saturation; 
thickness  of  formation; 
permeability  of  formation; 
viscosity  of  oil? 

rate  of  withdrawal  of  oil  (at  reservoir 
conditions)  per  unit  area; 


p  *  density  of  oil? 

P  8:8  pressure  of  oil? 
x,y  -  distance  coordinates; 
t  =  t  ime . 


If  the  quantity  •—  ^  =  c  is  essentially  a  con¬ 
stant,  and  if  the  terms  (^x)  and  (^y^  are  sma^ 

compared  to  the  terms  and  gjy  respectively, 

then,  equation  (IV. 1)  may  be  reduced  to  equation  (IV. 2) . 

.  _  ,  _  B  /kh  Bp\  .  B  /kh  Bp\  (  .  %  /TX7 

*  Soh  c  St  ■  31E  ss;  +  5y  SyJ  -  Q(x>y*-t)  (IV-2) 


If  the  quantities  k  and  are  functions  of  position  only 
and  the  quantities  c  and  \±  are  essentially  constant,  then 

equation  (IV. 2)  is  linear. 

Fig.  IV. 1  shows  a  typical  formation.  If  the 
closed  curve  C  represents  the  reservoir ,  the  following 
boundary  conditions  are  usually  applicable; 
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CURVE  C 


0  on  C,  where  r  is  the  direction  normal  to  C. 


dP  _ 

This  implies  that  the  formation  is  impermeable  beyond  the 
reservoir. 

P(x,y)  is  a  known  function  at  some  known  t. 

Q(x,y,t)  is  a  known  function  throughout  the  reservoir. 
In  general,  the  permeability  and  porosity  of  the 
formation  vary  throughout  the  region  and  the  variations  cannot 
usually  be  represented  by  a  simple  equation.  The  best 
approach  seems  to  be  that  of  assigning  discrete  point  values 
of  k  and  4>  throughout  the  medium. 

Numerical  solutions  to  equation  (IV. 2)  have  been 

* 

developed  in  the  recent  past  (1,23).  A  semi-analytical 
solution  of  equation  (IV. 2)  is  presented  here  for  the  fol¬ 
lowing  reasons: 

1.  to  obtain  an  estimate  of  the  size  of  the  problems 
that  can  be  handled  by  this  approach  without  run¬ 
ning  into  numerical  difficulties;  and 

2.  to  demonstrate  the  versatility  of  this  approach. 

The  reservoir  bounded  by  the  curve  C  was  divided 

into  a  finite-difference  grid  with  40  grid  points,  as  shown 
in  Fig.  IV. 1.  Each  grid  point  was  assigned  with  a  number. 
Three  producing  wells  were  placed  arbitrarily  in  blocks 
8,  19  and  25. 

If  the  area  around  any  grid  point  i  is  denoted  by 
Si,  then  the  partial  differential  equation  (IV. 2)  can  be 
integrated  over  this  elemental  area  to  get 
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dp± 

h  dt^  dxd^ 


r  d 


s . 
1 


^  dp  .■ 

k'i  S1T>  + 


a 
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ap.s- 


k'^  3 


1  dy 


dxdy 


Q(x,y,t)  dxdy 


(IV. 3) 


where 


ip  =  ^  1“  s  he  and  k '  =  •  —  . 

u  1 1 


If  is  the  contour  enclosing  the  area  s^,  then 
Green's  theorem  says  that  (31) s 


r  d 


f  ^Pi\  ^ 
53E  ( Ki  dx )  +  dy 


dp.v-, 


k'  . 


i  cT 


dxdy 


s  . 
1 


^  dP .  dp . 

ki  sir  dy  -  k'i  sir  dx 


(IV. 4) 


1. 

1 


The  R.H.  S.  for  each  of  these  can  be  evaluated 

dP.  dP. 

simply  by  considering  the  gradients  and  along 

the  contour  and  employing  a  consistent  system  of  signs  to 


the  derivatives  and  distance  increments.  As  an  example, 
the  interior  point  15  is  considered: 


AX  *15  "dt 


d  P15  _  (k'l4+k'l5) 


(P14“P15* 


Ax 


•  Ay 


(k*  9+k' 15}  (P9-P15) 
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(-Ax) 
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(P15~P23} 

Ay 


(Ax)  -  Q15(x,y,t)  Ax  Ay 


(IV. 5) 


Division  throughout  by  Ax  Ay  and  rearrangement  gives 


.  dP,  c 
r-  15 


15 


dt 


(k'g+k'is)  ^  (k'i4+ki5) 

2  *9  _  2 


2Ay 


2Ax 


14 


r(k,9+k<i5) 

-  2  Ay  2 


(k,14+k,l5)  +  (k,i5+k,i6)  + 


2Ax' 


2  Ax  2 


( k '  1 5~*~k '  2  3 )  ~* 

2Ay2 


15 


<kl15+k,16^  ,  (k,15’fk>23)  p 

2  16  _2  *23 


2  Ax' 


2Ay 


Q15(x»y»tJ 


Interior  point  21  is  an  example  of  a  grid  point 
around  which  the  contour  is  odd- shaped.  Integration  of 
equation  (IV. 2)  over  this  area  gives 


(IV. 6) 


If 


21 


’21 


Sp21 

d  t 


r  ^ 


dxdy  = 


dp 


SJ  lk'21  “5 


21 


x 


’21 


dP 


3y  lk‘21  “S7 


21 


dx  dy 


Q21  dxdy 


’21 


Application  of  Green’s  theorem  to  the  R.H.S.  of 
equation  (IV. 7)  gives  the  expression 


(IV. 7) 
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SP 

sr  dy 


dp 


21  ox 


-  k 


21 


21  by 


dX)  '  °21  A21 


(IV. 8) 


21 


The  line  integral  of  the  above  expression  can  be 
written  as  a  numerical  integral  as  in  equation  (IV. 5)  to 
give  the  following  equations 


•  t  dP21-  (k’l3+k,21>  (P13“P21>  .  ^’21+k,22)  <P21~P22> . 

A21  ^21  dt  2  -  Ax - o - - AY 


Ay 


Ax 


^k'21+k'29^  ^P2l“P29^  .  Ay 


2  /Ax2+Ay2 


cos  45' 


Q21  A21 


( IV„ 9) 

Division  throughout  by  AxAy  and  rearrangement  gives 


A21  ,  dP21 
^21 

AxAy  dt 


tk,13+k,21> 

2Ay2 


r(k,13+k'2i) 


13 


2Ay‘ 


(k‘ 2i+k>  22^ 

2  Ax  2 


^k21+k29^ 


4AxV2Ax2+2Ay2  J  21  2Ax 


p  +  -(-k-,21+J<L2.2)..  p 

^  .2  *22 


(k' 2i+k' 2g) 


A 


-  Q 


21 


21 


4AxV2Ax2+2AyZ"  29  ^  AxAy 

Formulation  cf  equations  of  the  type  of  equations 
(IV. 6)  and  (IV. 10)  for  the  grid  points  1  through  40  yields 
the  following  matrix  differential  equations 


IV. 10) 
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(IV. 11) 
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It  is  needless  to  point  out  that  the  matrix  B'  is 
symmetric.  In  equation  (IV. 11)  ,  D,  jo  ,  B' ,  _s'  and  t  have 
the  same  meaning- as  D,  u,  B' ,  _s'  and  t,  respectively  of 
equation  (II.  2). 

The  solution  of  equation  (IV. 11)  is  straightforward. 
Table  IV.  1  gives  a  summary  of  results.  Appendix  E  gives 
the  computer  program,  the  "property  matrices"  of  the  form¬ 
ation  and  the  complete  results. 

To  obtain  a  check  on  the  results,  the  amount  of  oil 
produced  was  calculated  by  two  independent  methods? 

1.  Amount  of  oil  produced  at  stock  tank  conditions  is 

*  v  1 

given  by  the  equation 

Total  production  =  (production  of  the  wells/time)  X 

time  of  production  (IV. 12) 

2.  The  amount  given  by  equation  (IV. 12)  should  be 
equal  to  the  depletion  of  oil  from  the  reservoir 
itself.  This  quantity  may  be  derived  as  follows? 


Pore  volume  available  for 
oil  in  block  j  of  the  field 


=  (1— sw) 


.  A. 
3  3 


Equivalent  volume  at 
stock  tank  conditions 


=  N. 
J 


(l-sw)  (4>h)  A_. 

B 


(IV.  13) 
(IV. 14) 


1  -  s  =  S 
w  o 


where  B  =  formation  volume  factor. 

If  the  oil  pressure  in  a  block  has  decreased  by 

AP .  in  a  certain  period  of  time  and  ND  .  is  the  oil  produced 
3  v  t  3 

in  that  period,  then, 


N. 


fr1-  c  (ap)  j 


(IV. 15) 
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TABLE  IV .1 


A  Two-Dimensional  Petroleum  Reservoir 

Summary  of  Results 


Initial  condition: 

Size  of  the  field: 

Number  of  wells: 

Total  rate  of 
Production: 


at  time  -  0,  the  formation  is  at  a 
uniform  pressure  of  1500  psia. 

The  complete  rectangle  measures 
2  miles  x  1.375  miles. 

Three . 


400  STB/ day . 


Elapsec 

time, 

days 

Pressures  at  selected  grid  points,  psia 

Total 

Check  ob¬ 
tained  by 
material 
balance  e 
STB  x  10 

1 

10 

h 

20 

30 

40 

production 
to  date,  c 
STB  x  10 

40 

1361.8 

1361.3 

1358.7 

1361.3 

1359.2 

0.1600 

0.1598 

120 

1082.9 

1082.4 

1079.8 

1082.3 

1080.3 

0.4800 

0.4795 

200 

j  f 

803.9 

803.4 

800.8 

803.4 

801.3 

0.8000 

0.7992 
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(IV. 16) 


N  .  -  N.  c(AP) 

r  >  J  J  j 


giving 


n 


Total  production  *  \  N.  c(AP) . 

3-1  3  3 


(IV. 17) 


The  barrels  of  oil  at  stock  tank  conditions  produced, 
calculated  using  equations  (IV. 12)  and  (IV. 17)  at  each  time 
appear  in  Table  IV.  1  and  Appendix  E.  As  may  be  noted,  the 
agreement  is  extremely  good. 
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V.  INVERSE  PROBLEM  FOR  A  HOMOGENEOUS  MEDIUM 

In  this  chapter,  the  technique  of  estimating  the 
transport  property  of  a  homogeneous  medium  using  the  semi- 
analytical  method  is  described  in  detail.  The  experi¬ 
mental  methods  used  are  also  dealt  with  in  some  detail. 

A.  Diffusivity  of  Copper  Sulfate  in  Water. 

The  data  used  in  estimating  the  diffusivity  of 
copper  sulfate  in  water  were  produced  from  unsteady-state 
experiments  using  the  technique  of  microcell  interferometry. 
These  experiments  were  performed  by  Dr.  R.N.  O'Brien  of  the 
Chemistry  Department,  University  of  Alberta,  Edmonton,  and 
are  described  in  complete  detail  elsewhere  (17,18,19,  20) . 

The  salient  features  of  the  experiments  and  measuring  tech¬ 
niques  are  presented  here. 

The  main  apparatus  consists  of  an  interferometer 
cell,  its  light  source,  and  the  recording  instrument ,  a 
motion  picture  camera  in  this  case. 

The  cell  is  essentially  a  wedge  type  interferometer, 
which  can  be  set  up  as  an  electrochemical  cell  or  a  thermal 
conductivity  cell.  Fig.  V.l  shows  the  various  parts  of  the 
principal  section  of  the  cell.  The  cell  is  thermostated 
and  the  wedge  angle  can  be  changed.  The  actual  cell  it¬ 
self,  which  was  made  of  two  copper  electrodes  sandwiched 
between  two  glass  flats  coated  with  partially  reflecting 
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Fig.  V.l. 


Details  of  the  interferometer  cell. 
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SCHEMATIC 

DIAGRAM  OF 
LIGHT  PATH 


Fig.  V.2.  Schematic  diagram  of  the  light  path 
showing  the  splitting  of  the  beam  amplitude  and 
production  of  two  coherent  transmitted  beams. 

The  two  halves  of  each  of  the  split  beams  shown 
are  actually  coincident  or  very  close  to  it.  The 
displacement  shown  is  for  convenience  of  display 
only. 
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dichroic  coating  at  the  inner  surfaces,  was  held  in  place 
by  two  3/4- in  brass  retaining  plates.  The  thermostating 
fluid  was  passed  through  the  channels  drilled  in  the  re¬ 
taining  plates.  The  electrodes  could  be  held  firmly  at 
a  desired  separation  by  teflon  spacers. 

The  cell  was  operated  successfully  using  a  Gates 
Sodium  vapor  lamp  as  the  source  of  monochromatic  light. 

The  glass  at  the  first  glass-solution  interface  encountered 
by  the  sodium  light  had  a  90%  reflecting  dichroic  coating  and 
thus  allowed  about  10%  of  the  light  to  traverse  the  cell  to 
the  other  solution  -  glass  interface.  This  glass  had  a 
70%  reflecting  coating  which  split  the  amplitude  of  the 
light  falling  on  it  into  a  transmitted  beam  (3%  of  the 
original)  and  a  reflecting  beam  (7%  of  the  original) .  This 
process  repeated  itself  ,  (Fig.  V.2) 9  and  interference 
occurred  between  the  transmitted  beams,  producing  a  system 
of  light  and  dark  fringes.  The  orientation  and  spacing 
of  the  fringes,  which  is  controlled  by  the  wedge  angle,  was 
adjusted  to  be  about  three  per  ram. 

In  diffusion  experiments,  the  copper  blocks,  0.2  cm 
thick  and  4  cm  long  were  set  0.313  cm  apart  and  connected 
to  a  potential  source  as  parallel-faced,  horizontal  elect¬ 
rodes  with  the  cathode  above  the  anode  in  a  plain  0.1  N 
solution  of  copper  sulfate  of  pH  4.5.  The  electrical  cir¬ 
cuit  was  arranged  to  give  a  constant  current  density  of 
about  1  ma  per  sq  cm.  After  about  three  minutes  of 
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Fig.  V . 3  Photographs  of  Typical  Fringes 
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electrolysis,  a  concentration  gradient  was  established 
that  extended  toward  the  center  of  the  cell  from  both  the 
anode  and  the  cathode  but  leaving  an  essentially  unaltered 
volume  of  electrolyte  in  the  center.  The  motion  picture 
camera  was  started  and  the  current  switched  off.  A 
Bolex  Paillard  16  mm  motion  picture  camera  was  used;  Ansco 
hypan  film  was  used  at  8  frames  per  second.  About  five 
minutes  of  the  process  of  concentration  gradient  decay  were 
recorded.  A  few  selected  frames  were  analysed  to  obtain 
concentration  profiles  at  the  elapsed  times.  Typical 
fringes  are  shown  in  Fig.  V.  3. 

A  few  striking  advantages  of  the  microcell  tech¬ 
nique  over  the  conventional  techniques  ares 

1.  Since  the  cell  width  is  very  small,  the  concen¬ 
tration  build-up  and  decay  processes  take  place  very 
fast,  the  time  required  being  in  the  order  of  a  few 
minutes.  In  the  case  of  thermal  experiments,  this 
was  in  the  order  of  a  few  seconds.  This  very 
short  duration  of  experiments  virtually  eliminates 
all  extraneous  effects  like  free  convection  and 
eddy  diffusion. 

2.  The  methods  in  the  past  (8  )  could  collect  data  at 
only  a  limited  number  of  points.  They  also  employed 
very  small  gradients  to  avoid  the  undesirable  effects. 
The  present  set— up  does  not  suffer  from  any  of  these 
problems.  In  fact,  the  complete  concentration 
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profile  is  available  for  mathematical  analysis,  and 
the  concentrations  at  the  required  grid  points  are 
obtained  by  employing  an  appropriate  interpolation 
method.  Further,  a  wide  variety  of  initial  con¬ 
centration  gradients  can  be  selected,  including 
very  steep  ones. 

The  fringes  were  measured  by  two  different  methods. 

In  some  cases,  the  fringe  was  projected  onto  a  graph  paper 
at  a  magnification  of  about  50,  the  contour  sketched  out  on 
the  paper  and  the  values  at  various  points  obtained  from 
the  sketched  in  curve.  In  other  cases,  the  film  negative 
was  placed  in  a  digitalised  measuring  microscope  and  com¬ 
puter  punch  cards  made  for  various  points  on  the  selected 
fringe . 

The  fringes  obtained  in  the  microcell  method  are 
refractive  index  contours.  The  relationship  between  the 
refractive  index  and  fringe  width  is  derived  as  follows  (  1^  i 
The  basic  formula  for  the  position  of  fringes  on 

2\±1  cos  0  (V.l) 

order  of  interference 
refractive  index 
wavelength  of  light 

distance  between  reflecting  surfaces, 

(i.e)  thickness  of  the  wedge  at  a  given 
point . 

angle  of  incidence,  o°  in  this  case. 

2  |il  <v-2) 


a  wedge  is  nA  = 
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Figure  V.  4 


Schematic  Diagram  Of 
The  Interferometer  Wedge 
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If  it  is  assumed  that  the  fringes  are  generated  in 
a  medium  of  refractive  index  \±  between  the  reflecting  sur¬ 
faces  in  such  a  manner  that  the  fringes  are  a  distance  d 
apart,  then  from  Fig.  Vr4,  it  follows  that 


tan  a  = 

hi 

-?r  (v.3 

di 

and  A  == 

2[i1 

•“  (V .  4) 

hi 

where  a  is  the  wedge  angle. 


Therefore,  tan  a  - 

For  a  second  point;  equation  (V.5)  becomes 


tan  a  = 

_A_  (V.6) 

2^2d2 

Combining  equations  (V.5)  and(V.6),  the  relationship 


^2 

d0 

-2  (V.  7) 

dl 

is  obtained. 

If  AA  and  A' A'  are  two  different  fringes,  equation 
(V.2)  may  be  written  as 


nAA  A  " 

2| i- 1  ( V .  8 . 1) 

JL 

and  n A ' A ' ^  ~ 

2p.2(l+h)  (V,8.2) 

where  h  is  the  change  in  thickness  of  tne  wedge.  Since  the 
order  of  interference  is  essentially  a  constant,  the  above 
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two  equations  may  be  combined  to  give 


M-t  1  ~  (jl0  (1+h) 


(V  .9) 


But 


tan  a  =  ~- 

d2 


(V.10) 


from  equation  (V.3) . 

Combining  equations  (V.1Q)  and 

ship 


5) ,  the  relation- 


Ad, 


2\x.d 


r*i 


(V.ll) 


is  obtained, 


Substitution  of  equation  (V.ll)  into  equation  (V„9) 


gives 


dl 


1  = 


M<2 


Ad, 


1  + 


-  -  2fxldX  - 


(V.  12) 


Substitution  of  equation  (V.12)  into  equation 
(V.8.1)  results  in 


Mq 


^2  ±  nfrf“ 

AA  1 


(V.  13) 


Mg 

°r  ^2  (14-  f/u)  (V,14) 

where  F  =  cU/^i  and  is  called  the  fringe  shift.  The 
order  of  interference  is  easily  calcultated  for  the  system 
using  equation  (V.2). 

To  obtain  the  concentration  (or  concentration  change) 
at  any  point  on  the  fringe,  a  calibration  curve  of  refractive 
index  versus  concentration  is  needed.  The  curve  for  copper 
sulfate  at  25°C  appears  in  Fig.  V. 5.  It  may  be  noticed 
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that  the  curve  is  essentially  a  straight  line  in  the  con¬ 
centration  range  of  interest,  giving  a  linear  relationship 
between  the  refractive  index  and  concentration. 


The  raw  data  were  available  in  the  form  of  a 


punched  card  deck.  This  deck  contained  the  followings 

1.  an  identification  card  (called  the  master)  for  each 
refractive  index  profile; 

2.  an  "orientation  card"  which  gave  the  orientation  of 
the  frame  with  respect  to  the  y-axis  of  the  measur¬ 
ing  apparatus  for  each  refractive  index  profile;  and 

3.  the  profile  itself,  measured  in  Angstrom  units,  as 
a  set  of  discrete  points  of  distance  (x)  versus  re¬ 
fractive  index  change  (y)  . 

A  number  of  such  profiles  at  various  elapsed  times 
were  available.  The  following  procedure  was  adopted  on  the 
computer  to  treat  the  data. 

Step  1.  Correction  applied  for  the  orientation  of  the  frames 
Fig.  gives  the  geometry  of  the  frame  with  respect 

to  x-y  plane.  It  is  required  that  OE  and  OC '  (denoted  by 
xJ  and  y  ')  be  determined  from  a  knowledge  of  x,  y  and  9. 

To  find  £*:  OC  '  =  CE  -  CD  sin  0. 


Also 


But 


or 


CD  -  CG  +  GD  =  y  +  GD. 

GD  =  OG  tan  (90-0)  =  x  tan  (90-0) 

CE  *  (y  +  x  tan  (90-©)) sin  9. 

y'*  =  (y  +  X  tan  (90-©)) sin  0 


(V. 15) 
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Figure  V.6  Orientation  Of  The  Fringes 
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To  find  x  s 

OE  = 

0G‘  sin  9. 

But 

II 

O 

O 

OG  - 

GG  '  = 

and 

GG  '  = 

GC 

=  y 

tan  *9 

tan 

o 

a 

n 

X  tan  9  * 

Therefore 

x'  - 

(x  " 

\3\ 


(V. 16) 


Each  orientation  card  contained  3  points  of  y 


versus  x  on  the  line  OC .  These  points  were  fitted  to  a 
straight  line  using  least  squares,  and  the  angle  9  obtained 
from  the  slope  of  this  straight  line.  After  the  angle  was 
determined,  equations  (¥.15)  and  (¥.16)  were  applied  to  each 
set  of  x  and  y  on  the  profile  and  the  corresponding  x’  and 
y‘  were  determined. 


Step  2.  Conversion  of  the  readings  on  the  x-axis  into  the 
actual  distances  of  the  microcells 

The  first  and  the  last  points  of  the  x-axis  readings 
were  taken  to  be  the  two  ends  of  the  microcell.  The  width 
of  the  cell  was  measured  to  be  0.313  cm;  so  all  the  other 
distances  were  normalised  on  this  basis  using  the  equation 


,  ,  (x !  -  x1 )  * 

distance  x.  -  0.313  x  — J— f-  (¥.17) 

3  (XN  “  Xl} 

(j  =  1  to  N) 

where  N  =  number  of  points  on  x-axis. 
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Step  3.  Conversion  of  readings  on  y-axis  to  concentrations: 

To  do  this,  the  change  of  concentration  at  any  point 
should  be  determined.  During  both  the  processes  of  con¬ 
centration  build-up  and  decay,  no  copper  sulfate  has  entered 
the  cell  from  outside?  hence  the  integral  under  each  of  the 
concentration  profiles  has  to  be  a  constant  and  is  equal  to 
the  integral  under  the  initial  concentration  curve?  also, 
assuming  that  diffusivity  of  copper  sulfate  does  not  change 
significantly  with  concentration  in  the  region  of  interest, 
the  concentration  versus  distance  curve  should  be  a  mirror 
image,  (turned  upside  down)  at  the  mid  point  of  the  x-axis. 

In  other  words,  if  a  horizontal  line  is  drawn  to  pass 
through  the  mid  point  of  concentration  curve,  the  area  of 
the  curve  to  the  left  and  right  of  this  point  should  be  the 
same. 


All  these  above  deductions  are  borne  out  from  the 


experimental  profiles,  as  may  be  seen  from  Fig.  V.7,  within 
experimental  limits. 

Using  trapezoidal  rule,  the  integral  under  the  curve 
using  the  actual  distances  x' '  of  x»axis  and  measured  values 
of  y-axis  (the  corrected  values  y')  -  is  evaluated  as  follows 


•  i 


N 


y  dx 1 1  “  I  t  ~ 


.  •  i 


N-l 

2  J  (yj  +  ^j+l5  Uj+1  "  Xj} 

j~l 


V.18) 


Using  the  mean  value  theorem,  an  average  ordinate 


is  given  by 


ave 
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Yave  and  Y  at  any 
point  is  directly  related  to  concentration  change  as  follows  (21); 

Magnification s  The  image  size  is  smaller  than  the 
actual  cell;  so  the  factor  to  apply  for  correction  is 


Magnification 


3130 

(VX15 


(V. 20) 


This  factor  is  different  for  each  frame. 

2)  Conversion  factors  From  the  calibration  curve, 
this  was  given  to  be  0.227  x  10-4  (gm  mole/lit)/ 
micron  ( 21)  . 

Or,  c.  =  0.05  +  (y  '  -  y  )  x  0.227  x  10~4 

j  j  ave 


__313_0 

(v -v 


(V. 21) 


()  ■  1  to  n) 

where  c^  =  concentration  of  copper  sulfate, 

<• 

gm  mole/lit  at  x^ . 

Application  of  equations  (V.15)  through  (V.21) , 
done  in  a  computer  program  yielded  the  curve  of  concentration 
versus  distance  at  each  elapsed  time.  Typical  figures  appear 
in  Fig.  V.7. 

Step  4.  Formation  of  the  finite  difference  grid: 

It  was  observed  that  the  concentration  at  the  mid 
point  of  the  cell  was  unchanged  within  experimental  limits, 
as  was  predicted  from  theoretical  considerations.  So,  the 
following  boundary  conditions  were  employed: 

At  x  =  0  =  0.313  cm,  =  0 


at  x 


0.1565  cm,  c 


constant 


(V.  22) 
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Interferometer  Cell 


86 


The  two  halves  of  the  microcell  were  treated  sep¬ 
arately,  and  a  five  point  grid  was  employed  (Fig.  VJB)  . 

The  concentrations  at  the  grid  points  were  obtained 
by  interpolation  using  an  appropriate  interpolation  formula. 
Since  the  data  were  unequally  spaced,  a  Lagrangian  inter¬ 
polation  formula,  using  two  points  on  either  side  of  the 
grid  point  was  used.  In  some  profiles,  where  the  data  was 
a  little  erratic,  the  4-point  Lagrangian  interpolation 
formula  did  not  give  compatible  values;  in  such  profiles, 
linear  interpolation  was  used. 

Step  5.  Evaluation  of  the  values  of  decoupled  variables 

The  coefficient  matrix  B  for  the  above  finite- 
difference  grid  appears  in  Appendix  F.  The  eigenvalues 
and  eigenvectors  of  B  were  determined  using  Householder ' s 
method,  and  are  given  in  Appendix  F. 

Using  equation  (11.37),  the  values  of  v(t)  were 
determined  at  the  various  elapsed  times  from  the  known  values 
of  c(t)  .  Also,  using  equation  (11.43),  the  values  of  z(t) 
were  determined. 

The  complete  program,  the  input  data  and  the  com¬ 
plete  output  of  results  are  given  in  Appendix  F. 

From  the  definition  of  the  uncoupled  variables 
v(t)  (equation  (11.37)),  it  can  be  seen  that  the  components 
v . ( t )  of  the  vector  v(t)  are  the  scalar  products  of  the 

l  ~ 

potential  vector  u(t)  with  the  individual  eigenvectors  3i. 
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( i  1  to  n) .  Geometrically,  these  may  be  looked  upon  as 

the  projections  of  the  potential  vector  u(t)  onto  the  in¬ 
dividual  eigenvectors  ,  Another  way  of  looking  at  these 
decoupled  variables  is  also  of  help  in  interpreting  the 

results.  The  v. 's  are  the  variables  u.  in  an  n-dimensional 

x  1 

orthogonal  space,  whose  coordinate  system  is  represented  by 
the  individual  eigenvectors  The  origin  of  the  original 

coordinate  system  and  the  new  coordinate  system  is,  of  course, 
the  same . 

The  variables  z^(t)  (equation  (11.43))  are  functions 
of  v^,  and  are  normalised  values  of  v^  with  respect  to  the 
initial  value  v^(o)  and  the  modified  boundary  condition  vector 
component  r^  (i  -  1  to  n) .  It  is  easily  shown  (Appendix  A) 
that  the  eigenvalues  of  a  physical  system  represent  ex¬ 
ponential  decay  constants  and  hence  must  be  negative  numbers. 
Equation  (11.43) ,  then  predicts  that  the  values  of  go  to 
zero  exponentially  with  time.  It  follows  that  these  z^'s 
are  largest  in  numerical  value  at  zero  time,  and  are  all 
equal  to  unity  since  all  are  normalised  values.  Some  of 
these  zi's  will  decay  faster  than  the  others  depending  on 
the  numerical  value  of  the  corresponding  eigenvalue. 

When  comparing  lengths  of  vectors,  it  is  desirable 
and  advantageous  to  use  a  normalised  potential  vector  \i{t) . 

For  example,  if  the  initial  condition  of  the  medium  is  a 
uniform  value  of  u  ,  one  boundary  is  at  a  constant  value  u, 
and  the  other  boundary  is  insulated,  the  normalised  potential 
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ui  is  defined  by  the  equation 


(V. 23) 


On  this  basis,  it  can  easily  be  seen  that  the  values 


of  the  modified  variables  v^  also  decay  to  zero  with  time. 

If  the  initial  potential  vector  happens  to  be  nearly  colinear 
with  one  of  the  eigenvectors  (which  is  the  same  as  having  a 
normalised  scalar  product  close  to  unity) ,  then  the  decay 
process  of  this  particular  modified  variable  is  bound  to  be 
described  significantly  better  than  that  of  the  others  by 
the  experimental  data.  Except  under  special  circumstances, 
the  initial  potential  vector  is  not  completely  colinear  with 
any  of  the  eigenvectors;  if  this  is  the  case,  all  the  other 
v^'s  will  contribute  nothing  to  the  above  analysis,  since 
the  eigenvectors  are  orthogonal  to  each  other. 

The  normalised  scalar  products  of  the  initial 
potential  vector  with  the  individual  eigenvectors,  given  by 
the  equation 


(V. 24) 


(i  =  1  to  n) 


appear  in  Appendix  F  for  the  present  problem.  It  may  be 
noticed  that  p4  and  p5  are  an  order  of  magnitude  larger  in 
absolute  value  than  the  others.  It  is  also  noticed  that 
the  eigenvalues  corresponding  to  v^  and  v^  are  an  order  of 
magnitude  smaller  than  the  others,  which  makes  them  decay 
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slower  than  the  others. 

To  sum  up,  although  in  theory  there  are  n  modi¬ 
fied  variables,  each  giving  rise  to  a  straight  line  from 
which  the  diffusivity  of  the  medium  can  be  calculated, 
the  above  considerations  show  that  only  a  certain  number  of 
them  are  likely  to  give  good  results. 

The  values  of  z^  and  only  were  used  therefore 
for  estimation  of  diffusivity  of  copper  sulfate.  These 
values  were  curve-fitted  to  a  straight  line  in  a  semi-log- 
arithmic  manner  with  the  elapsed  times.  The  experimental 
values  of  z^  and  z^,  together  with  the  best  fit  straight 

< 

lines  through  these  points  appear  in  Fig.  V.9.  The  ; 

<i 

estimated  values  of  diffusivity  of  copper  sulfate  from  z4  J, 

and  Z(-  appear  in  Table  V.l,  along  with  some  reported  re¬ 
sults  ( 8  )  and  other  pertinent  information.  The  estimated 
values  agree  favorably  with  the  reported  ones,  thus  con¬ 
firming  the  validity  of  the  model. 

It  was  deemed  desirable  to  arrive  at  a  single 
value  of  diffusivity.  Hence  a  weighting  procedure  was 
adopted?  the  normalised  scalar  products  of  the  initial 
potential  vector  with  the  individual  eigenvectors  were  de¬ 
termined,  and  an  initial  screening  of  the  values  of  z±  to 
be  used  from  the  ones  deemed  undesirable  for  use  was  made. 

The  values  of  diffusivity  were  determined  using  the  above 
procedure;  the  single  value  of  diffusivity  then  is  thought 
to  be  best  given  by  the  equation 
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TABLE  V.l 


Diffusivity  of  Copper  Sulfate  in  Water 
(Data  from  Dr.  R.N.  O'Brien’s  experiments.  Temp  =  25° C) 


Column  from  which  the  Weighting  factor 

diffusivity  was  obtained 


zc(High  Concn.  half) 
o 

z4(Low  concn.  half) 

zc(Low  concn.  half) 
o 


0.97526 
0.67541 
0 .71056 


Diffusivity  x  10^ 
2/ 

cm  /sec. 

6.2714 

5.8645 

6.4087 


Weighted  average  f according  to  | 


equation  (V.25) 


J 


—6  0 

6.20  x  10“  cm  /sec. 


Previously  reported  values  (8) 

~6  2 

are  in  the  range  of  5.5  to  8.0  x  10  cm  /sec. 
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Least  Square  Analysis 
Of  Diffusivity  Data 


G 


V  !0b  Least  Square  Analysis  Of  Diffusivity  Data 
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9a 


p.  a. 
i  1 


a 


over  i 


(V. 25) 


Pi 


over  l 


where  =  ith  scalar  product. 

These  values  for  the  two  halves  of  the  microcell 
are  given  in  Table  V.l. 

For  purposes  of  comparison,  the  same  data  were 
treated  in  the  conventional  maimers  that  is,  analytical 
solution  (7)  was  used  to  estimate  the  diffusivity  of  copper 
sulfate.  A  range  of  values  of  diffusivity  were  selected, 
and  the  concentrations  were  predicted  by  the  analytical 
solution  at  the  grid  points  for  the  various  elapsed  times. 
The  point  error  was  defined  by  the  equation 


ei 


^analytical  cexpt^  ^ 


(V. 26) 


The  total  error  for  any  one  value  of  diffusivity 


is  then  given  by 


E 


^analytical  Cexpt^  i 


(V. 27) 


over  i 

A  plot  of  E  versus  a  was  prepared,  and  the  value 
of  a  where  E  was  minimum  was  taken  as  the  true  diffusivity 
of  copper  sulfate  as  given  by  this  method. 

It  was  found  that  the  value  E  was  quite  insensitive 
to  changes  in  values  of  a,  in  the  region  where  the  curve 
went  through  a  minimum.  Further ,  when  the  method  was 

repeated  for  a  different  initial  condition,  the 
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predicted  minimum  error  was  at  a  value  of  a  quite  remote 
from  the  first  one.  Hence  the  method  was  deemed  not 
suitable . 

The  results  from  the  analytical  solution  method 
are  shown  in  Fig.  V.10.  The  program  is  given  in  Appendix  F. 

The  various  considerations  on  the  lengths  and  rate 
of  decay  of  vectors  which  led  to  the  present  analysis  needed 
a  check  on  their  validity.  For  this  purpose  extremely 
accurate  data  are  necessary,  and  were  generated  from  an 
analytical  solution. 

Using  these  data,  the  modified  variable  v  and  the 
normalised  variable  z  were  calculated.  The  corresponding 
normalised  scalar  products  of  the  initial  condition  vector 
with  the  individual  eigenvectors  are  also  calculated. 

These  values  of  v,  z  and  the  scalar  products  appear  in 
Appendix  G.  Two  very  important  conclusions  are  borne  out 
from  these  data,  namely: 

1.  large  eigenvealues  tend  to  decay  the  values  of  z i 
very  fast;  and 

2.  the  starting  length  of  a  modified  variable  is 
very  crucial  for  the  accuracy  of  the  method. 

Another  very  important  factor  is  also  made  clear 

from  the  above  tables:  if  the  values  of  z i  are  smaller 

than  0.0001,  round  off  errors  and  errors  in  the  evaluation 
of  eigenvalues  and  eigenvectors  are  likely  to  play  a  dom¬ 
inant  and  detrimental  role.  Also,  appearance  of  a  negative 
value  of  zi  (which  is  theoretically  impossible) ,  is  a  sign 
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TABLE  V.2 

Estimation  of  Thermal  Diffusivity  of  Water 

Data  Generated  From  an  Analytical  Solution 


Column  from  which  Weighting  factor 
the  diffusivity  was 
obtained 


Diffusivity  x  10' 
cmVsec . 


‘10 


0.30234 

0.92083 


0.1425 

0.1412 


Weighted  average  (^according 
to  equation  (V.25)  ) 


0.1415  x  10’2  cm2/sec. 


Assumed  diffusivity,  cm  /sec 


0.1409  x  10”2  cm2/sec 
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that  the  data  are  erratic,  and  should  be  handled  carefully. 

The  values  of  diffusivity  calculated  from  zQ  and 
z10  are  ^^-ven  -*-n  Table  V.2,  along  with  the  value  used  in 
the  generation  of  data.  As  may  be  noticed,  these  values 
are  extremely  accurate. 

B.  Thermal  Diffusivity  of  Water. 

A  microcell  set  up  identical  to  that  used  in  the 
experiments  with  copper  sulfate  solution  was  used.  The 
1.95  mm  thick  copper  blocks  were  set  at  0.043  cm  apart. 

The  cell  was  thoroughly  thermostated  at  25°C,  and  0.15  cc 
of  double  distilled  water  at  5.2°C  was  injected  by  a  hypo¬ 
dermic  needle  into  the  cell  between  the  copper  blocks.  Just 
before  injecting  the  water,  the  motion  picture  camera  was 
started  and  the  fringe  development  was  recorded.  The 
camera  was  operated  at  a  speed  of  24  frames  per  second. 

The  temperature  equalisation  was  essentially  complete  in 
about  two  seconds.  A  few  typical  fringes  are  shown  in 
Fig.  V.  11. 

A  few  assumptions  made  in  the  analysis  of  data  from 
thermal  experiments  need  some  explanation.  In  formulating 
the  finite  difference  grid,  the  assumption  was  made  that 
the  copper  blocks  in  contact  with  water  remain  at  the  con¬ 
stant  temperature  of  25°C.  This  condition  has  not  been 
met  completely,  but  the  error  introduced  can  be  shown  to  be 
small  (22)  .  The  thermal  conductivities  cf  copper  and  water 


■ 

*  / 

' 

■ 

)  ISP 

- 


' 

. 

.  . /  • 

/ 

' 

tom  2P.I 

•  ( "  •  . 
i 

. 

■ 

f 

t  t viJ-Ddfcai  970l»cf 

jn0.rrTqol9v»£>  erfd’  bus  b&j'&Bf  a 

.  -•  •  ■»  . 

'  •  u.  ' 

\ 

■ 

.  /  ,  .•  :>  ,  5.  ^Bisi  ■  •  •  -::'q  •&♦•<•:,  ••,  ,  *  a 

■ 

. 

: 

iat^e 

■ 


Fig. 


Photographs  of  Typical 


V.ll 


Fringes 


N 


98 


are  0.941  and  0.001409  cals/ (cm. sec  °C)  respectively,  or 
the  conductivity  of  copper  is  about  660  times  that  of 
water .  The  thermal  capacity  of  the  copper  blocks  used  is 
15  cals/degree  C.  To  raise  0.15  cc  of  water  from  5.2°C 
to  25°C,  2.97  calories  of  heat  are  required.  Therefore, 
the  temperature  of  copper  will  decrease  less  than  0.2°C, 
or  less  than  1%  of  the  total  change  of  temperature  of  the 
water. 

Another  assumption  made  in  the  model  was  that  the 
system  is  essentially  one-dimensional  in  nature.  This  is 
not  completely  satisfied  either,  but  the  errors  can  be 
shown  to  be  small.  Although  the  heat  capacity  of  the  glass 
flats  is  about  7  cals/degree  C,  the  thermal  conductivity  is 
only  about  2%  of  that  of  copper,  and  the  conducting  surface 
is  about  four  times  smaller,  so  that  the  heat  supplied  by 
glass  should  be  only  about  0.5%  of  the  total. 

A  third  assumption  was  made  that  natural  convection 
effects  were  absent.  Although  the  copper  blocks  were 
vertical  in  this  experiment,  it  is  known  (  1^  that  the  onset 
of  natural  convection  requires  about  fifteen  seconds,  about 
six  times  the  total  experimental  time,  thus  validating  the 
assumption. 

Hence,  the  experiment  is  expected  to  be  a  very  good 
approximation  of  one-dimensional  heat  flow. 

It  was  noticed  on  the  motion  picture  film  that  the 
first  few  frames  were  quite  blurred,  making  it  almost  im— 
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possible  to  make  any  accurate  measurements.  Presumably, 
the  rate  of  change  of  temperature  in  the  initial  stages 
of  heat  transfer  was  too  great  for  the  speed  of  exposure 
of  the  camera  to  freeze  it;  so  instead  of  using  all  the 
frames,  only  those  frames  which  seemed  to  have  a  natural 
trend  in  the  temperature  profiles  were  used.  The  first 
of  these  was  taken  to  be  at  zero  time  and  hence  was  used 
as  the  initial  condition  vector. 


The  raw  data  were  available  in  the  form  of  a 


punched  card  deck,  and  contained  the  followings 

1.  An  identification  card  for  each  refractive  index 
profile? 

2.  An  orientation  cards  in  this  deck,  there  was  only 
one  orientation  card  for  all  the  profiles  since 
they  all  had  the  same  slanting. 

3.  The  profile  itself,  measured  in  Angstrom  units. 
Exactly  the  same  steps  as  in  the  copper  sulfate 

program  were  used,  with  a  few  changes  to  meet  the  partic¬ 
ular  needs  of  the  deck. 


The  magnification  factor  was  given  to  be  0.43/0.345, 


and  the  conversion  factor  was  given  to  be  0o00597°C/Au. 

In  this  case,  there  is  no  need  to  integrate  the  temperature 
profile?  the  boundary  temperature  is  known  to  be  25 °C  and 
the  temperatures  at  the  other  points  in  the  profile  were 
calculated  using  the  formula 


25.0 


x  0.00597  x 


(V. 28) 
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TABLE  V. 3 

Estimation  of  Thermal  Diffusivitv  of  Water 

Data  from  Dr,  R.N.  Obrien's  Experiments 


Column  from  which  Weighting  factor 
the  diffusivity  was 

obtained  


Diffusivity  x  10‘ 
cm2/sec . 


zc  (five-point  grid) 

D 


0.8996 


0.1334 


z10  (ten“P°int  grid) 


0.8728 


0.1329 


Weighted  average  ^according  j 
to  equation  (V.25)^  J 


Reported  value  (9) 


0.1332  x  10~2  cm2/sec. 
0.1409  x  10"" 2  cm2/sec. 
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The  boundary  conditions  employed  were: 


at  x  *  0,  T  -  25.0 
at  x  =  0.0215  cm,  *  0 


(V. 29) 


A  ten-point  grid  and  a  five-point  grid  were  used 
for  the  half  cell  width.  The  coefficient  matrix,  eigen¬ 
values  and  eigenvectors  for  the  ten-point  grid  appear  in 
Appendix  G.  The  corresponding  values  of  the  modified  var¬ 
iable  v,  the  normalised  scalar  products  and  the  variable  £ 
are  also  given  in  Appendix  G  together  with  the  complete 
program  and  output . 

It  is  noticed  that  in  this  case  only  one  set  of 
z^'s,  those  of  z^q,  are  the  only  ones  available  for  plotting. 
The  reason  for  this  is  obvious  from  the  scalar  products  and 
the  values  of  themselves.  The  unavoidable  errors  in 
measurements  have  rendered  the  values  of  zg  unusable. 

The  estimated  values  of  thermal  diffusivity  of 
water  from  the  five-point  grid,  ten-point  grid  and  the 
reported  value  (9  )  appear  in  Table  V.3?  although  the  re¬ 
sults  do  not  agree  as  well  as  they  do  in  the  case  of  copper 
sulfate,  they  are  satisfactory  considering  the  problems 
encountered.  It  is  hoped  that  with  a  better  cell  design 


and  elimination  of  recording  problems,  better  results  can  be 


obtained. 
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V.I*  INVERSE  PROBLEM  FOR  A  NON-HOMOGENEOUS  MEDIUM 

The  concept  of  a  homogeneous  medium  is  in  fact  an 
approximation,  but  seems  to  be  satisfactory  in  some  physical 
situations.  However,  many  situations  arise  where  the 
approximation  of  a  single  value  of  a  transport  property  for 
the  whole  medium  is  not  adequate.  A  typical  example  is  that 
of  a  petroleum  reservoir,  where  the  nature  of  the  porous 
medium  cannot  be  represented  by  any  single  value  of  porosity 
and  permeability.  A  similar  situation  is  encountered  in  the 
flow  of  heat  or  mass  across  the  radius  of  a  packed  bed, 
where  it  has  been  demonstrated  (28)  that  the  effective  thermal 
conductivity  and  diffusivity  vary  considerably  over  the  cross- 
section  of  any  packed  bed.  A  fair  amount  of  research  work 
has  been  done  in  this  field  to  establish  techniques  of 
estimating  the  Peclet  numbers  for  heat  and  mass  transfer  in 
packed  beds  (  2,  27  ) . 

The  inverse  problem  for  a  non-homogeneous  medium, 
stated  in  Chapter  XI,  is  as  follows? 

The  temperature  (or  pressure  or  concentration)  -  time 
history  of  a  non-homogeneous  body  under  the  influence  of 
known  boundary  and  initial  conditions  is  available.  It  is 
required  to  predict  the  transport  properties  of  the  body 
(this  is  tantamount  to  predicting  the  coefficient  matrix  B 

for  the  system) . 

A  solution  to  the  general  inverse  problem  stated 
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above  has  been  developed  using  the  semi-analytical  method. 
The  solution  makes  use  of  the  following  properties  of  the 
system: 


1.  If  the  body  is  adequately  represented  by  an  n-point 
grid,  the  values  of  potential  at  these  grid  points 

ul>  u2>  *  •  •  *  un  f°rm  a  linearly  independent 

system  of  coordinate  axes  for  the  system.  Associated 
with  the  n-dimensional  space  of  the  actual  coordin¬ 
ate  axes,  there  exists  an  orthogonal  n-dimensional 
eigenvector  space.  These  are  the  eigenvectors 
associated  with  the  coefficient  matrix  B. 

2.  Along  any  of  these  eigenvectors,  a  potential  vector 
undergoes  only  a  change  in  length  but  not  of  dir¬ 


3. 


ection 


The  rates  of  decay  of  the  components  of  the  pot¬ 
ential  vector  in  the  various  eigendirections  are 
logarithmically  proportional  to  time.  The  slopes 
of  these  straight  lines  are  proportional  to  the 
eigenvalues  of  the  system. 

The  technique  employed  in  developing  a  solution  to 
the  inverse  problem  for  a  non-homogeneous  medium  (to  the 
physical  system)  is  analogous  to  the  technique  employed  by 
Wei  and  Prater  (  32)  for  estimating  the  rate  constant  matrix 
of  a  complex  first  order  reaction  system  (the  chemical 
system).  There  is  one  chief  difference,  however.  The 
constraints  (II. 7)  and  (II. 8)  imposed  on  the  chemical  system 
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are  not  in  general  applicable  to  the  physical  system.  For 
an  n-component  chemical  system,  an  (n-1 ) -dimensional  phase 
plane  (the  reaction  "simplex")  is  immediately  defined.  On 
this  simplex,  (n-1)  straight  line  reaction  paths  can  be 
established.  It  must  be  borne  in  mind  that  all  of  these 
(n-1)  paths  are  in  the  real  composition  space,  and  are  re¬ 
lated  to  the  eigendirections  of  the  system,  which  are  not 
in  the  real  composition  space.  In  the  physical  system, 
however,  there  is  no  simplex:  this  implies  that  there  is 

no  (n-1) -dimensional  surface  on  which  all  the  potential 
vectors  will  lie.  Consequently  the  straight  line  paths 
in  the  real  potential  space  cannot  be  established 

In  the  chemical  system,  the  origin  of  the  reaction 
simplex  is  the  equilibrium  composition  and  is  unique  for 
the  n-component  system  under  consideration.  However,  in  a 
physical  system  approximated  by  an  n-point  grid,  the  bound¬ 
ary  conditions  determine  the  steady-state  potential  vector. 
This  aspect  further  complicates  the  generalisation  of  the 
physical  system. 

The  following  boundary  conditions  were  imposed  on 
the  non-homogeneous  body  considered  in  this  thesis: 
at  x  =  0,  u  *  0. 

at  x  -  1,  “  0. 

The  theoretical  development  which  follows  is 
applicable  to  these  boundary  conditions. 
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The  steady-state  potential  vector  for  this  case  is 
obviously  the  zero  vector.  This,  then,  will  be  the  origin 
for  the  n-dimensional  potential  space  under  consideration. 

For  this  particular  choice  of  boundary  conditions,  any 
potential  vector  will  obviously  lie  in  the  positive  orthant 
of  the  n-dimensional  space.  In  general,  it  will  have 
components  in  the  various  eigendirections .  These  components 
will  decay  to  their  origin  at  rates  which  are  directly  re¬ 
lated  to  their  eigenvalues.  After  a  certain  time,  some 
of  these  components  will  become  insignificant  and  the  other 
components  will  predominate.  Since  the  potential  vector 
always  stays  in  the  positive  orthant,  it  follows  that  the 
eigendirection  in  the  positive  orthant  will  be  the  dominant 

.1 

one.  This  means  that  the  components  in  this  direction  will 
have  the  slowest  rate  of  decay.  Also,  since  the  eigen¬ 
directions  are  orthogonal,  there  is  only  one  eigendirection 
in  the  positive  orthant.  All  the  above  reasoning  will 
then  lead  to  the  conclusion  that  any  potential  vector  will 
decay  to  the  origin;  this  decay  process,  after  sufficiently 
long  elapsed  time  will  mahe  the  potential  vector  approach 
this  dominant  eigendirection  and  the  rest  of  the  decay  will 
be  along  this  unique  direction,  which  is  the  only  one 
"straight  line  path"  in  the  real  space  associated  with  the 

physical  system. 
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The  above  conclusions  are  substantiated  by  the 
results  of  the  various  solutions  to  the  forward  problem., 
There,  it  was  indeed  observed  that  associated  with  the 
coefficient  matrix  B,  there  is  one  eigendirection  which 
lies  entirely  in  the  positive  orthant  of  the  actual  co¬ 
ordinate  system.  It  is  also  observed  that  this  eigen¬ 
direction  has  the  smallest  rate  of  decay.  The  rate  of 
decay  of  the  length  of  the  component  of  the  potential 
vector  in  this  direction  will  be  logarithmically  prop- 

t  ( 

ortional  to  the  eigenvalue  corresponding  to  this  eigen¬ 
vector  „ 


After  determining  this  eigenvector,  it  is  pos¬ 
sible  to  eliminate  the  component  of  the  potential  vector 
in  this  direction.  The  resulting  "potential  vector", 
then,  should  converge  to  the  eigendirection  corresponding 
to  the  next  smallest  eigenvalue,  and  so  on. 

The  process  of  "elimination"  of  successive  eigen¬ 
vectors  to  determine  new  eigenvectors  is  feasible  only  if 
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the  original  potential  vector  has  reasonable  components  in 
the  various  eigendirections.  For  determining  the  first 
eigenvector,  however,  this  requirement  is  not  critical  since 
any  potential  vector,  which  is  always  in  the  positive 
orthant,  has  a  reasonable  component  in  this  eigendirection 
which  is  also  in  the  positive  orthant.  No  elimination  is 
done  while  this  eigendirection  is  being  determined.  Since 
other  components  decay  faster  than  the  component  under  con¬ 
sideration,  this  will  eventually  predominate. 

In  planning  experiments  for  the  purposes  of  deter¬ 
mining  the  coefficient  matrix  B,  it  is  desirable  to  choose 
the  successive  sets  of  initial  conditions  as  closely  ortho¬ 
gonal  to  the  determined  eigenvectors  as  possible.  Thus, 
the  components  of  the  potential  vector  in  these  directions 
can  be  suppressed  and  the  components  in  other  eigendirections 
will  be  more  significant.  During  the  process  of  elimination 
of  the  known  components,  this  type  of  choice  of  the  initial 
conditions  minimises  the  loss  of  information  about  the  un¬ 
known  components.  Since  the  components  ±n  the  unknown 
directions  will  decay  much  faster,  it  is  also  desirable  to 

have  data  at  shorter  elapsed  times. 

The  line  of  reasoning  mentioned  above  can  be  put 
in  the  form  of  equations.  As  an  example,  a  system  con¬ 
taining  three  dependent  variables  is  considered. 

A  potential  vector  is  represented  by  u„  If  the 
vector  _u  has  components  o^,  o 2  &nd  slo^g  the  individual 
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coordinate  axes  u^,  u2,  and  u3,  then 


u 


al  “X  +  °2  -2  + 


°3  —3 


(VI.l) 


The  same  vector  u  can  also  be  represented  in  the 


orthogonal  eigenvector  system, 
three  unit  eigenvectors  and  0^, 
of  u  in  the  directions  of  c^,  £2 


If  and  33  are  tlle 

P2  and  (3^  are  the  components 
and  c[3,  then 


-  =  P1  2l  +  P2  32  +  P3  33  (vi.2) 

It  must  be  remembered,  however,  that  q2  and  q3 
are  not  known.  The  problem  is  to  find  them  in  the  u  -  system 
of  coordinates. 

If  one  of  the  eigenvectors,  say  has  been  deter¬ 
mined  by  the  above  process  of  normalisation  of  a  set  of  pot¬ 
ential  vectors,  then  the  projection  of  any  potential  vector 
u  onto  this  eigenvector  is  given  by  their  inner  product. 


0^  is  a  scalar. 

The  ’"potential  vector1'  that  will  not  have  a  component 
in  the  direction  of  is  given  by 


u‘  -  u  -  (uT  ax)  Sj_  -  (VI. 4) 

According  to  the  theory,  then,  the  set  of  vectors 
m'  should  converge  to  the  eigendirection  £2*  In  the  three- 
dependent  variable  case,  determination  of  q3  is  simply 
accomplished  by  use  of  the  orthogonality  relations 
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T 

Si  £3  -  0  and 


T 

S2  3- 


0 


(VI.  5) 


and  remembering  the  fact  that  one  of  the  elements  of  can 
be  arbitrarily  chosen «  To  determine  the  third  eigenvalue, 
however,  a  plot  of  the  components  in  the  q^  direction  versus 
time  has  to  be  made  for  a  set  of  potential  vectors. 

The  above  technique  can  be  extended  to  an  n-dimensional 
case.  To  determine  n  eigenvectors,  the  method  requires  that 
(n-1)  eliminations  should  be  performed.  Some  of  these 
eliminations  could  probably  be  done  with  the  same  data,  but 
it  is  likely  that  (n-1)  different  initial  conditions,  chosen 
according  to  the  principle  of  orthogonality,  will  give  better 
results. 


The  technique  proposed  above  was  applied  to  some 
data  generated  by  a  theoretical  equation  to  obtain  a  check 
on  its  validity.  Figure  VI. 1  gives  a  physical  picture  of 
the  non-homogeneous  medium  considered  and  the  boundary  cond¬ 
itions  employed.  The  diffusivity  of  the  medium  varies 
linearly  with  length  along  the  body,  and  the  variation  is 
assumed  to  be  known .  When  the  problem  is  set  up  in  the  form 
required  for  a  semi-analytical  solution  using  a  five-point 
grid,  the  following  matrix  differential  equation  will  result. 


..  "a-  *  ••  ■  •  Tfi*  - 


ii-Jn  *>  iQfj[j  *  'C«>  ®  :  c  So Iq  &  c*av9warf 


•J  •  .>  -M:  •  '  1  •»-> 

. 


et’Ufli.  £l~n  «i  XX 


.  iV.ro od  oS  berntrser 


v  >£qn*s  i  .itoX  XI 


.  xa:^!t  pnJkwoXXo’X  ariX  *bi:tp 


1 0  8 


Inverse  Problem  — Non-  Homogeneous  Medium 


. 

109 
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dt 
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The  solution  for  equation  (VI „ 6)  when  the  coefficient 
matrix  is  known  is  extensively  discussed  in  Chapters  II  and  III. 
This  method  was  used  to  generate  data  for  testing  the  technique 
developed  in  this  chapter.  The  aim  of  this  example  is  to 
generate  the  coefficient  matrix  of  equation  (VI. 6)  and  thus 
obtain  a  check  on  the  applicability  of  the  technique.  As 
a  starting  point,  a  uniform  potential  of  unity  across  the 
whole  medium  was  chosen  and  the  boundary  uq  was  kept  at  zero. 

The  potential  vector  was  determined  for  various  elapsed  times. 
The  length  of  each  one  of  these  vectors  was  determined  and 
the  normalised  potential  vector  was  observed  to  converge  to 
a  unique  direction,  which  checked  very  closely  with  one  of 
the  eigenvectors.  The  logarithms  of  vector  lengths  versus 
elapsed  times  yielded  a  straight  line,  whose  slope  agreed 
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very  closely  with  the  smallest  eigenvalue  for  the  system. 

A  second  "experiment"  was  performed  with  an  initial 
condition  which  had  a  much  smaller  component  in  this  known 
e igendirection .  The  potential  vector  was  determined  for 

various  elapsed  times »  The  elapsed  times  in  this  second 
"experiment"  were  chosen  to  be  an  order  of  magnitude  lower 
than  the  elapsed  times  of  the  first  "experiment".  The 
known  component  was  eliminated  from  these  potential  vectors 
using  equations  (VI 0 3)  and  (VI. 4)  and  the  resulting  vectors 
were  normalised  in  the  same  manner.  As  was  predicted, 
these  vectors  converged  to  a  unique  direction  which  was  the 
same  as  the  eigenvector  corresponding  to  the  second  lowest 
eigenvalue.  The  rate  of  decay  of  the  length  was  also 
determined  and  the  slope  was  found  to  be  very  close  to  the 
second  lowest  eigenvalue. 

The  above  process  was  successfully  repeated  to 
generate  the  other  eigenvalues  and  eigenvectors.  A  simil¬ 
arity  transformation  using  the  generated  eigenvalues  and 
eigenvectors  was  made.  The  resulting  matrix  agreed  very 
closely  with  the  original  coefficient  matrix,  thus  providing 
an  adequate  check  on  the  validity  of  the  method. 

A  mathematical  statement  of  the  problem  solved, 
the  computer  program  used  and  the  results  obtained  are 
given  in  Appendix  H.  A  summary  of  results  appears  in 


Table  VI. 1. 
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TABLE  VI. 1 


INVERSE  PROBLEM  FOR  A  NON-HOMOGENEOUS  MEDIUM 


Summary  of 

Results 

Expt .  No . 

Elapse  time  for 
convergence  to 
an  eigenvector 

Estimated 

eigenvalue 

Actual 

Eigenvalue 

1 

1.90 

-0 .3218 

-0.3198 

2 

0.70 

-3.2680 

-3.2551 

3 

0.50 

-8.2113 

-8.1633 

4 

0.36 

-13.6789 

-13.6838 

5 

0.02 

-19.9952 

-19.9947 
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VII.  SUMMARY  AND  CQNCLUS IONS 


1.  A  general  semi-analytical  solution  to  the  linear 
conduction  (or  diffusion)  equation  has  been  developed.  The 
discretisation  of  the  space— derivatives  of  the  parabolic 
partial  differential  equation  produces  a  system  of  ordinary 
differential  equations.  The  coefficient  matrix  of  this 
system  is  symmetric,  and  hence  the  operational  methods  of 
linear  algebra  and  matrix  theory  are  very  useful.  A  closed 

form  solution  in  terms  of  the  spatial  distribution  of  prop- 

\  > 

erties  and  the  eigenvalues  and  eigenvectors  of  the  coefficient 

i  ■ 

matrix  is  obtained.  The  solution  has  been  tested  on 
example  problems  of  varying  complexity,  and  good  checks  on 
the  accuracy  of  the  proposed  method  have  been  obtained.  No 
significant  problems  were  encountered  in  evaluating  the 
eigenvalues  and  eigenvectors  of  matrices  up  to  an  order  of  40. 

Hence,  it  is  concluded  that  the  solution  developed 
in  this  thesis  is  capable  of  handling  practically  all  one- 
dimensional  and  many  two-dimensional  problems  in  homogeneous 
or  non-homogeneous  media  (provided,  of  course,  the  properties 
of  the  media  are  independent  of  the  dependent  variable  and 
time)  • 

2.  A  general  method  of  estimation  of  the  transport 
property  of  a  homogeneous  medium  using  unsteady-state  data 
has  been  developed.  The  technique  of  microcell  interfer¬ 
ometry  has  been  used  to '  produce  the  unsteady-state  data. 
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The  mathematical  model  is  developed  from  the  semi-discrete 
form  of  the  diffusion  equation,  and  makes  use  of  the  fact 
that  symmetric  matrices  can  be  diagonalised  by  a  similarity 
transformation.  This  transformation  produces  a  new  set  of 
dependent  variables  which  are  completely  uncoupled  from  each 
other.  Integration  of  each  equation  is  now  accomplished 
very  easily.  The  logarithm  of  the  new  variable  is  prop¬ 
ortional  to  time,  and  the  slope  of  the  straight  line  contains 
the  corresponding  eigenvalue,  diffusivity  of  the  medium, 
and  the  grid  spacing,  from  which  the  diffusivity  is  eval¬ 
uated  easily.  The  estimated  values  of  molecular  diffusiv¬ 
ity  of  copper  sulfate  in  water  and  of  thermal  diffusivity 
of  water  agreed  favourably  with  previously  reported  values... 

The  conventional  "least  squares"  technique  applied 
to  the  same  data  failed  to  yield  useful  results.  The 
method  was  found  to  be  highly  dependent  on  the  choice  of 
initial  conditions.  The  proposed  method,  on  the  other  hand, 

'■  ' -'V  ,  ' 

weights  all  the  data  in  a  manner  determined  by  the  eigen¬ 
vectors  of  the  system.  Since  these  eigenvectors  are 
associated  with  the  coefficient  matrix  of  the  mathematical 
model  of  the  physical  process,  this  way  of  weighting  the 
experimental  data  is  believed  to  be  a  better  representation 
of  all  the  experiments.  Also,  the  proposed  method  in 
essence  permits  a  linear  fit  of  the  data,  a  desirable  feature. 

The  proposed  method  was  found  to  be  capable  of 
yielding  useful  results  even  from  rather  "noisy"  data,  as 
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was  shown  from  the  thermal  experiments.  As  better  light 
sources  and  improved  microcells  are  developed,  the  accuracv 
of  the  method  should  be  even  better.  Thus,  a  combination 
of  microcell  interferometry  and  the  proposed  theoretical 
analysis  provides  a  new  means  for  rapid  and  accurate  deter¬ 
mination  of  molecular  and  thermal  dif fusivities  of  liquids. 
Other  possible  applications  are  in  the  field  of  diffusion  of 
gases  in  liquids. 

3.  A  mathematical  model  has  been  proposed  for  the 
estimation  of  the  "conductivity  matrix"  of  a  non-homogeneous 
medium.  The  method  was  successfully  employed  in  reprod¬ 
ucing  the  known  conductivity  matrix  of  a  non-homogeneous  medium 
by  analysing  a  series  of  five  "experiments"  that  used 
different  initial  conditions.  This  method,  then,  provides 
a  new  way  of  estimation  of  radial  Peclet  numbers  in  a  packed 
bed.  The  model  clearly  illustrates  that  introduction  of  a 
tracer  material  at  the  centre  of  the  packed  bed  is  not 
necessarily  the  best  way  of  obtaining  information  about  the 
packed  bed.  Instead,  the  information  provided  by  an 
arbitrarily  chosen  first  experiment  could  be  advantageously 
used  in  selecting  the  initial  conditions  for  the  next 
experiment. 
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APPENDICES 


A1 


A.  Related  Topics  of  Matrix  Algebra 
The  proofs  of  theorems  of  matrix  algebra  given  here 
are  extracted  from  standard  texts  on  the  subject.^" 


Theorem  1.  The  eigenvalues  of  a  real  and  symmetric  matrix 
B  are  real. 

The  proof  is  by  contradiction. 

Suppose  A^  is  a  complex  eigenvalue  of  B  Then, 
since  B  is  real,  it  follows  from  the  characteristic  equation 

det  (B  -  Al)  *  0  (A.  1) 

•fc 

that  the  conjugate  A^  of  any  complex  root  A^  is  also  an 
eigenvalue.  Also,  the  corresponding  eigenvectors  and 

are  complex. 

Since  A1  is  an  eigenvalue  and  q1  is  an  eigenvector, 
the  following  relation  is  satisfied: 


B 


Also 


Si 

* 

-  Si 


\  Si 

*  * 

Ai  Si 


Premultiplication  of  equation  (A. 2)  by  g*T  and  equation 
(A. 3)  by  2^  gives 


.T 


Si  £  Si 


'1  Si  Si 


and 


m  * 

Si  £  Si 


'l  Si  Si 


(A. 2) 
(A. 3) 


(A.  4) 
(A. 5) 


+  For  examples  1)  Bellman,  Rs  Introduction  to  matrix 

analysis  (1960) . 

2)  Birkhoff,  G,  and  Maclane,  Ss  A  Survey 
of  Modern  Algebra  (1953)  . 
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Since  B  is  symmetric,  the  left  hand  sides  of  equations 
(A.  4)  and  (A. 5)  are  equal,  giving 

(^2.  “  %)  =  0  (A.6) 

* 

or  A^  -  A^.  But  this  is  contrary  to  the  assumption.  Hence 
all  the  eigenvalues  of  a  real  and  symmetric  matrix  B  are  real. 

Theorem  2.  A  real  and  symmetric  matrix  B  of  order  N  had  N 
linearly  independent  and  mutually  orthogonal  eigenvectors. 

The  proof  for  this  theorem  is  done  in  two  parts. 

Part  1  To  prove  that  the  eigenvectors  associated  with 
distinct  eigenvalues  are  othogonals 

Consider  two  distinct  eigenvalues  A  and  |i  and  the 
associated  eigenvectors  x  and  y.  Then, 


B  x  * 

A  x 

(A. 7) 

and 

By  = 

M-  X 

(A.  8) 

The  scalar  products  of  equation  (A .7)  with  y  and 


of  equation 

(A .8)  with  x  are 

rn  T 

y  B  x  =  Ay  x 

(A. 9) 

and 

T  T 

x  B  y  =  (ix  y 

(A. 10) 

Since  B  is 

symmetric,  yT  B  x  =  xT  B  y 

(A. 11) 

or, 

(A  -  \i)  (xT  y)  =  0 

(A. 12) 

Since  X  and  p.  are  distinct  eigenvalues,  xT  y  must  be  zero 
in  order  that  equation  (A012)  is  satisfiedo 

Hence  the  eigenvectors  associated  with  distinct 


eigenvalues. are  orthogonal » 


-Vi  ■  '  ■  ‘  ‘  6  :  ) 

'  lL  ~  i*  * 

.(Did  jar  SB*  oi  YTiB^^rroo  si:  aJrfi  :tufl  -r  **  j/  so 


owd  nti  enofo  ai  m9iosA$  eirfd  soi  iooiq  arfT 

n?v  .;•  t.-v*  aso.;  r£©^ig  bail  icoaafi 


&n^  /  rfiiw  (f«£)  noi^jsupo  5to  a.!to?.-6o^q  x^ljssa  arfT 

?)*?:£  f:  .£  8 . A)  ;IOXifS.l/p©  io 


(e.i ) 


X  I(> 

X  "i  xi  “  X  SL  1 1  &«* 

X  ^*.  *i  *  5r  §.  Z  foJk*t8iB»Y»  al  fl  eonia 

'  ■  U  *4'’  iu  -  A)  •  ,VJ 

" 

c  " 

’ 


A3 


— ar^ — —  Let  be  a  root  of  multiplicity  k.  It  is  required 

to  prove  that  there  exist  k  linearly  independent  and  ortho¬ 
gonal  eigenvectors  associated  with 

Let  A1  =  A2  .  .  .  ■*  A^,  but  A^  +  A^  for 
i  *  k+1,  .  s  .  n. 

The  proof  is  by  induction. 
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b12l  = 

-  b21 

b22-l 
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CN 
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Let  B2  = 


be  a  symmetric  matrix. 

Let  A^  and  x^  be  a  set  of  associated  eigenvalues 
and  eigenvectors.  Then, 

or 


(A.  13] 


—2  ^1 


^1  — 1> 


x i  =  A^  x1]L  and  b 


(2) 


-1  Xlx21 


(A.  14) 
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Let  T2  be  an  orthogonal  matrix,  one  of  whose  columns 

In  matrix  notation, 


Let  the  other  column  be  x2 


x-p 

It  is  required  to  show  that 
T 


V  —2  —2 


rA1  0  n 


0  A 


2J 


(A. 15) 


where  A1  and  A2  are  the  eigenvalues  of  B2,  not  necessarily 
distinct . 

Evaluation  of  the  left  hand  side  of  equation  (A .15) 


gives  the  following  expressions 


fc>  IX-*-  >ft  1  -t  Jl  .  *  J  '•  '  :-<ji  '  .  U<B  *0  '1^  ■>!  5  -  ^ 


.fi  /  d.  ;  «:  -too/ 


•  M'  Si,.1' 


«X*  XA  X- 


^  l!li  w  ,■  - 

noi^r.  jron  xiid*;  t  al 


,r  .  &c<  .jjnut.  c  o  d  aKI  *  >x 


fA  -l 

LS  J  ' 

ylir*b**xf>a  ion  #r\  :.o  a*a£s.v;iap.-  »  rid  ric  „  btxs  rX  sT^rfw 

: 


' 


A4 


r  A 


—2  —2  —2 


1  12 
0  c 

22J 


It  is  easily  shown  that  c, 9  =  0,  for 


—2^  B2  —2 


12 

^  T  T  T  ^  T 

=  12  b2  (T2  )  =  T2T  b2  T2 


(A. 16) 


or  B2  T_2  is  a  symmetric  matrix.  Hence  c^  has  to  be  zero 

Also,  since  the  characteristic  roots  of  T~T  Bn  T0  and  of  B~ 

—2  2  2  “2 

are  the  same,  it  follows  that  c^2  =  This  also  proves 

that  x2  is  the  second  eigenvector. 

The  Nth  order  case  is  proved  by  induction. 


o  o  ^  n  ^  an 


Assume  that  for  each  k,  k  =  1,2,  . 
orthogonal  matrix  T^.  can  be  found  which  reduces  to  a 
diagonal  form.  It  is  required  to  show  that  if  the  above  is 
valid  for  n,  it  is  valid  for  (n+1) . 


Let  Bn+1  -  (bij)  - 


b 
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(A. 17) 


(n+1) 


Let  A^  and  x^  be  a  set  of  associated  eigenvalue  and  eigen¬ 
vector.  An  orthogonal  matrix  is  formed  with  x^  as  its 
first  column.  Let  be 
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Now,  B^.,^ 


b(1)x  ' 
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(A. 18) 


Since  is  an  orthogonal  matrix, 
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Since  T1tr  Tx  is  symmetric,  b12  »  b13 
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Now,  the  eigenvalues  of  Bn  must  be  the  same  as  the  other 
eigenvalues  of  B 

n+i 

The  theory  of  induction  is  employed  at  this  stage. 

Let  ^  be  an  orthogonal  matrix  which  reduces  Bn  to  diagonal 
form.  Let 


“n+1 


1  0  . 
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—n 


(A. 21) 
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which  is  also  orthogonal.  Now 
Ttti  (-i  ^1  -l^-Tri-i  = 


by  multiplication. 

0r  (^1  ^ntl)T  Snfl  (^1  ^ntl)  <A-23) 

(T^  the  required  orthogonal  matrix,  and 

hence  its  (nrtl)  columns  are  linearly  independent.  Clearly, 
these  are  the  eigenvectors  of  ^n+1  * 


n+1 


(A. 22) 


and  the  theorem  is  proved. 
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Theorem_3.  The  eigenvalues  of  the  matrix  B  are  non-positive 
numbers . 

Consider  a  typical  matrix  B  encountered  in  a  system 
which  is  adequately  represented  by  a  3-point  grid. 


(A  o  24) 


A  matrix  JB  is  said  to  be  diagonally  dominant  if 

n 


i  =  1  to  n 


(A.25) 


This,  of  course,  is  easily  seen  to  be  true  in  the 
present  case.  Further,  JB  is  said  to  be  irreducibly  diag¬ 
onally  dominant  if  the  inequality  holds  for  at  least  one  i0 
This  is  also  easily  verified  to  be  true  in  the  present  case. 

It  is  therefore  established  that  ( 30  )  since  the  diagonal 
elements  of  JB  are  negative,  the  eigenvalues  of  JB  are  also 
negative. 

This  also  establishes  that  the  matrix  B  is  a  negative 


definite  matrix. 


©vxixaoq-non  ©us  a  xxu^js/h  ertt  e©*/l6vns>pi©  arfT  .i  mauoefjT 

.  a  u 

;t  .  '  5  \  i  X •  ••  V ;  '5  :•  81  tfQj.dw 


■s :.j. 


I-  L 


n 


'\r 


©d  cj  ftssa  \  Lx  .  =•  v  i  d  ?o  ti  r,rfT 

. avlffpea ‘ 


' 


B1 


INTRODUCTION  TO  APPENDICES  B  TO  G 


In  Appendices  B  to  G,  the  various  computer  programs 
that  have  been  used  are  presented.  It  is  felt  that  a  few 
important  general  aspects  of  the  various  programs  should  be 
listed  at  this  stage. 

1.  In  each  of  the  following  Appendices,  a  simple  state¬ 
ment  of  the  problem  solved  is  given  first. 

2.  Most  of  the  programs  are  in  the  following  general 
orders 

a)  a  main-line  program,  where  usually  data  are 
read  in  and  results  are  printed  out. 

b)  Various  calculating  procedures,  used  by  the 
main  line  program  in  the  form  of  subroutines. 

For  small  programs,  this  format  was  not  followed. 

3.  The  subroutines  that  have  been  used  extensively  in 
the  thesis  are  listed  in  Appendix  H.  Any  sub¬ 
routines  that  are  specific  to  a  certain  problem  are 
listed  along  with  its  main  line  program. 

4.  “Comment  cards"  have  been  added  to  the  main  line 
programs  for  easier  understanding  of  the  programs. 

5.  In  most  of  the  programs  that  follow,  "floating 
point  traps"  were  encountered.  These  were  caused 
mainly  because  the  matrices  had  a  number  of  zeros 
in  them.  Hence,  a  floating  point  trap  suppressor 
program,  which  is  available  as  a  binary  deck  under 


.1  jp  l*  '  -I  <  Fvy-  a*r.  fts  u  r  ei  r'  ztslfct 

^  ^  '-‘if  •  :  -  •'  !»**  i 

.  j’  •  •.:  : i  .;oviy  s  .  ..  J  iq  s.'f.7  o  3n  fr 

.  3fii  :  ?o-  •  3:0  1.02  .  r‘  r  /:•  ns  i\  '•  £ 

bqwelioi  3on  esw  jsfflrxoi  airf:*  f  asifiipoaq  IX^om 

-  ■  >••••  ,:  r-  :  .  «  •  :  . :  . ;  . 

.nx£ipoiq  sn>.X  rtiera  tfzfiw  p,  iXi> 

. 

. 

-i&hau  Xs>t*b  \i6fi  \.C  6  ««  sx  rfojdw  cm  2.  pc /q 


the  name  "FPT  9"  was  extensively  used. 

The  following  notation  is  employed  on  the  $JOB  cards 
F  -  Forward  problem 

I  -  Inverse  problem 

H  -  Homogeneous  medium 

NH  -  Non-Homogeneous  medium 
Thus,  FNH  would  mean  "Forward  Problem  -  Non- 
Homogeneous  medium",  etc „ 

This  notation  is  follwed  by  an  identification 
number,  followed  by  any  useful  information  that 
could  be  given  on  this  card* 
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APPENDIX  B 

One-Dimensional .  Homocreneous  Media  a 

The  partial  differential  equation  describing  this 

case  is 

=  a  ¥ 

bt  bx2 

O^x^.2  1D 

The  boundary  conditions  that  have  been  used  ares 
at  x  *  0  ®  •  2  1 ,  u  G 
at  x  -  1,  58  °» 

Semi-analytical  solutions  A  five-point  and  a  ten-point 
grid  were  used  for  the  half-slab  Q^x^l*  The  grid  spacings 
used  for  the  five-point  grid  is  shown  in  Fig.  XII.  1. 

Analytical  solutions  This  is  given  by  equation  (III. 3) . 

Errors s  The  reported  errors  are (Analytical  solution  minus 
semi-analytical  solution) * 
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SOLUTION  TO  THE  FORWARD  PROBLEM-HOMOGENEOUS  MEDIUM 
ONE-DIMENSIONAL  SYSTEM 

INPUT  DATA 


N=GR ID  SIZE 
NT=NUMBER  OF  TIMES 
S  =  CQEFF I C I  ENT  MATRIX 
X=DIMENSIONLESS  DISTANCES  OF 
TI=INITIAL  CONDITION  VECTOR 
C1=60UNDARY  CONDITION  VECTOR 
T IME  =  DIMENSIONLE  SS  TIMES 
ALPHA=THERM AL  DIFFUSIVITY 
RM= (CELL  W  I  DTH/2 )  **2 
DX=GR I D  SPACING 


GRID  POINTS 


34  249 


35 

36 

37 
42 
33 


REAL  TANAL (  15,1 
REAL  SI  10, 10)  ,R 
REAL  ERROR!  15,1 
FORMAT! IX, 214) 
FORMAT! IX, F13.8 
FORMAT! 1X,7F10. 
FORMAT! IX, 3F14. 
FORMAT! 1X,25F3. 
FORMAT! 1H2 ) 
FORMAT ( 1H  ,10X, 
FORMAT ! 1H  ,//) 
FORMAT ( 1H  ,/) 
FORMAT! 1H  ,18X, 
111HDIMENSIONAL/ 
FORMAT! 1H  ,30X, 
FORMAT! 1H 
FORMAT ! 1H 
FORMAT!  1H 
FORMAT! IN 
FORMAT! 1H 
FORMAT ( 1H 
FORMAT! 1H 
FORMAT ( 1H 
FORMAT ( 1H 
FORMAT ( 1H 
FORMAT ( 1H 
FORMAT! 1H 
FORMAT! 1H 
2H  4,  8X,2H  5) 
FORMAT ( 1 H  *  1 5X» 
12H  9,  8X , 2H 10 ) 
251  FORMAT! 1H  , 15X, 
255  FORMAT!  1H  , 30X, 
RE AD ! 5 , 1 )  N , NT 
READ ( 5 , 5 )  ( ( S ( J 

READ  t  5 , 2 )  ( X ( J 


0 ) , T I  ME (  15), TI (  10) »TEVR(15,10)  ,X! 10)  ,V 
( 10) ,V(  10, 10) , A ( 1 0 ) ,8!  10)  »W1 (10)  , W2 ( 10 
O)tCl(lO)  ,W (10,10) 


1 

2 

3 

4 

5 

220 

221 

222 

223 

224 

231 

232 

233 

234 

235 
240 
24  1 

242 

243 

244 

245 

246 

247 

248 


VR ( 15, 10)  ,X( 10)  ,VAR( 10 ) 

-  - -  - ) 


tlOX, 
»  28X , 
,  10X, 
,28X, 
,  30X, 
,  10X, 
♦  3 1 X , 
,  3 1 X, 
,20X, 
,  30X , 
,  25X, 
,  30X, 
,  15X, 


,  4F 1 4 . 8  ) 

6) 

8) 

0) 

8H  • • CONTD ) 


26H  TEMPERATURE  PROF  I L E S- ONE- , 

25X, 22H  HOMOGENEOUS  MEDIUM) 

12H  GRID  POINTS) 

5F 1 1  *  6 ) 

25H  INITIAL  CONDITION  VECTOR) 

5F12.4) 

26H  BOUNDARY  CONDITION  VECTOR) 

19H  COEFFICIENT  MATRIX) 

5F12.2 ) 

12H  EIGENVALUES) 

13H  EIGENVECTORS) 

35H  CHECK  OF  SIMILARITY  TRANSFORMATION) 
25H  SEMI-ANALYTICAL  SOLUTION) 

28H  TEMPERATURES  AT  GRID  POINTS) 
19HANALYTICAL  SOLUTION) 

5H  T I  ME  »  5X  » 2H  1,  9X,2H  2,  8X,2H  3,  8X, 

5H  TIME,  9X,2H  6,  8X,2H  7,  8X,2H  8,  8X, 

F6 • 1 »  2X  »  5F 10*6) 

18H  ASSOCIATED  ERRORS) 

, K ) , K= 1 , N ) , J=1,N) 

),J=1,N  ) 
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SOURCE  STATEMENT 


RE AD ( 5  »  2 )  ( T 1 ( J ) f  J= 1 f  N  ) 

RE  AD ( 5 , 2  )  {  Cl ( J ) »  J= 1 , N  ) 

READ  (5,3)  (TIME(J), J=lfNT) 

READ  (5,4)  ALPHA, RM,DX 
M  AXN  = 1 0 
M  =  N 

CALL  EIG1(N,MAXN,M,S,R,V,A,B,W1,W2) 

CALL  CHECK( V,R, N, U) 

PI  =  3.  1415927 
DO  10  K= 1 , N 
DO  10  J= 1 » NT 
T  AN AL ( J  »  K ) =0 . 0 
DO  9  L= 1 , 60 
AL=  L 

A A= ( 2 • *  AL  — 1 • )*PI*X(K) 

AB=-(2.*AL-1. )**2*( P  1/2. )**2*ALPHA*TIME  (  J)/RM 
9  TANAL ( J, K )  =  TANA L(J,K)+SIN(AA)*EXP(AB) / { 2 • * AL— 1 . ) 
10  TANAL( J,K)=4.*TANAL( J,K)/PI 
DO  15  K=1,N 
VAR(K)=0.0 
CO  15  J=1,N 

VAR(K)=VAR(K)+V (  J  » K  )  *T  I  (  J ) 

15  CONTINUE 

CO  25  L  =  1 »  NT 
CO  25  K  =  1 , N 
TEVR(L,K)=0.0 
DO  25  J=1,N 

CONST=ALPHA*R(J  )*TIME(L)/(DX**2) 
TEVR(L,K)=TEVR(L,K)+V(K,J)*VAR(J)*EXP{ CONST ) 

25  CONTINUE 

DO  26  J= 1 » NT 
DO  26  K= 1 , N 

26  ERROR ( J,K)=TANAL( J,K)-TEVR( J,K) 

WRITE(6,220) 

L  I  NES  =  9 

CALL  LINECT(LINES,4,2) 

WR I TE ( 6, 224 ) 

WR I TE ( 6 , 22  3 ) 

WRITE(6,231) 

CALL  LINECT(LINES,1,2) 

WRITE(6,232)  ( X ( J  )  ,J=1,N) 

CALL  LINECT (LINES, 4, 2) 

WR  I  TE ( 6, 223 ) 

WRITE(6,233) 

CALL  LINECT(LINES,i,2) 

WR I TE ( 6 , 234 )  (  T  I  ( J  )  , J= 1 , N ) 

CALL  LINECT(LINES,4,2) 

WRITE( 6, 223) 

WRITE(6,235) 

CALL  LINECT (LINES, 1,2) 

WR I TE ( 6 , 234 )  ( C  1  ( J ) t J= 1  * N ) 

CALL  LINECT(LINES,4,2) 

WRITE(6,223) 

WR I TE ( 6 , 240 ) 

DO  31  J=  1 ,  N 
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SOURCE  STATEMENT 


CALL  LINECT!LINES»1,2) 

31  WRITE(6,241)  ( S ( J , K )  ,  K=  1 , N ) 

CALL  LINECT(LINES,3,2) 

WRITE! 6, 223) 

WRITE(6,242) 

CALL  LINECT!LINES,2, 2) 

WRITE(6»232)  (R(J),J=1,N) 

CALL  L INECT (LINES, 3, 2) 

WRITE(6,223) 

WRITE(6,243) 

CO  32  K=  1 »  N 

CALL  LINECT!LINES,3,2) 

WR  I  TE  (  6  »  2  32  )  (  V  ( J ,K  )  * J=1 ,N) 

32  WRITE(6,223) 

CALL  LINECT(LINES,1,2) 

WRITE! 6,244) 

CO  33  J  =  1  ,N 

CALL  LINECT(LINES»3,2) 

WRITE(6,2  32)  (  W  (  J , K ) , K  =  1 , N  ) 

33  WRITE(6,223) 

WR I TE ( 6, 220 ) 

WR I TE ( 6, 245  ) 

WRITE! 6,223) 

WRITE! 6, 246) 

WR I TE ( 6, 248 ) 

CO  34  J= 1 , NT 

34  WR ITE(6»251)  T I  ME ( J ) , t  TEVR(J,K),K=] 
WRITE! 6,223) 

WRITE(6,247) 

WR I TE ( 6, 223  ) 

WRITE! 6,246) 

WRITE! 6,248) 

CO  36  J= 1 , NT 

36  WRI TE ! 6 , 25 1 )  T I  ME ( J ) , ( T ANAL ( J  ,  K  )  ,  K  = 
WRITE(6,223) 

WRITE! 6,255) 

WRITE(6*223) 

WRITE(6,248) 

CO  38  J= 1 , NT 

38  WRITE(6,251)  TIME  ( J  ),( ERROR ( J ,K ) ,) 
END 
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program  is  being  entered  into  storage. 

TEMPERATURE  PROF ILES-ONE-D IMENS IONAL 
HOMOGENEOUS  MEDIUM 

GRID  POINTS 

0.090909  0.181818  0.272727  0.363636  0.454545 


INITIAL  CUNDI T ION  VECTOR 

.0000 

l.OCOO  1.0000  1.0000 

1.0000 

BOUNDARY  CONDITION  VECTOR 

.0000 

-O.OCOO  -0.0000  -0.0000 

-0.0000 

COEFFIC IENT 

MATRIX 

-2.00 

1.00 

0.00 

0.00 

0.00 

1.00 

-2.00 

1.00 

0.00 

0.00 

0.00 

1.00 

2.00 

1.00 

0.00 

0.00 

0.00 

1.00 

-2.00 

1.00 

0.00 

0.00 

0.00 

1.00 

-1.00 

EIGENVALUES 

-0.081014 

-0.690279 

-1.715370 

-2.83083C 

-3.682507 

EIGENVECTORS 

-0. 169891 

-0.326019 

-0.455734 

-0.548529 

-0.596885 

0.455734 

0.596885 

0.326019 

-0. 169891 

-0.548529 

0.596885 

0.169891 

-0.548529 

-0.326019 

0.455734 

0.548529 

-0.455734 

-0.169891 

0.596885 

-0.326019 

-0.326019 

0.548529 

-0.596885 

0.455734 

-0.169891 

CHECK  OF  SIMILARITY  TRANSFORMATION 
-2.000000  l.COOOOO  0.000000  -0.000000  0.000000 
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00000.0-  0.  .1 

000000. s- 

*  CONTD 
1.000000 

0*000000 

-0.000000 

0.000000 


-2.000000 

l.CCOOOO 

0.000000 

-o.cooooo 


1.000000 

-2.000001 

1.000000 

0.000000 


0. ocoooo 

1.000000 

-2. 000000 

1. 000000 


-0.000000 

0.000000 

1.000000 

-1.000000 


no.  u  . 

000.' JO  .0 

0  0000 

0  0  .  n 

000000 . 1 

i  0000 

00000  ).  J 

00000 
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OJOOOO . i 
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.  -  OO.i  000000.0 
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SEMI-ANALYTICAL  SOLUTION 


TEMPERATURES  AT  GRID  POINTS 

IME 

1 

2 

3 

4 

5 

0.0 

l.OOOOCO 

1.000000 

1.000000 

1.000000 

1.000000 

1.0 

0.523777 

0.832285 

0.954311 

0.989934 

0.997882 

2.0 

0.385742 

0.682074 

0.860607 

0.946734 

0.978333 

4.0 

0.2769C0 

0.519418 

0.704579 

0.824697 

0.882513 

6.0 

0.223908 

0.426750 

0.591200 

0.705680 

0.764083 

9.0 

0.172444 

0.330549 

0.461395 

0.554598 

0.603008 

12.0 

0.134840 

0.258710 

0.361559 

0.435085 

0.473380 

15.0 

0.105697 

0.202824 

0.283513 

0.341229 

0.371303 

15.0 

0.105697 

0.202824 

0.283513 

0.341229 

0.371303 

20.0 

0.070486 

0.135262 

0.189079 

0.227578 

0.247640 

ANALYTICAL  SOLUTION 

TEMPERATURES  AT  GRID  POINTS 

IME 

1 

2 

3 

4 

5 

0.0 

1.017888 

0.991817 

1.004558 

0.997597 

1.00075b 

1.0 

0.5205C0 

0.842701 

0.966105 

0.995321 

0.999571 

2.0 

0.382924 

0.682683 

0.866322 

0.954034 

0.984881 

4.0 

0.27594 2 

0.5  19041 

0.706479 

0.829373 

0.889005 

6.0 

0.223810 

0.427097 

0.592656 

0.708494 

0.767826 

9.0 

0.  172593 

0.330939 

0.462128 

0.555690 

0.604332 

12.0 

0.134838 

0.258723 

0.361610 

0.435180 

0.473505 

15.0 

0.  105538 

0.202522 

0.283095 

0.340731 

0.370765 

15.0 

0.105538 

0.202522 

0.283095 

0.340731 

0.370765 

20.0 

0.070189 

0.134691 

0.188281 

0.226618 

0.246595 

ASSOCIATED  ERRORS 


TIME 

0.0 

1.0 

2.0 

4.0 

6.0 

9.0 

12.0 

15.0 

15.0 

20.0 


1 

0.017888 

-0.003278 

-0.002818 

-0.000958 

-0.000098 

0.000149 

-0.000002 

-0.000159 

-0.000159 

-0.000298 


2 

-0.008183 

0.010415 

0.000609 

-0.000377 

0.000347 

0.000390 

0.000014 

-0.000302 

-0.000302 

-0.000571 


3 

0.004558 

0.011794 

0.005715 

0.001899 

0.001456 

0.000734 

0.000050 

-0.000418 

-0.000418 

-0.000798 


4 

-0.002403 

0.005387 

0.007300 

0.004676 

0.002814 

0.001093 

0.000095 

-0.000498 

-0.000498 

-0.000960 


5 

0.000756 

0.001689 

0.006548 

0.006493 

0.003743 

0.001324 

0.000126 

-0.000538 

-0.000538 

-0.001045 


'  I  I  J  !  . 


1 1  T  Y  J 


]  liV-i  :  I  •■■■<)  TA  T 

S  1  3M1T 

000000. I  000000. I  0.0 

i  sst  .o  yyy£S8.o  o. i 


A 

£ 

000000 

.  i 

.  i 

000000 . 1 

S  -  Y  .  v 

•  w 

At  PPi  9 . 0 

I  i  *  A  <•  . 

• 

♦»  i  Y  A  V  . 

Y  0  606  * • 0 

ties  ‘ 

•  0 

Y  V  S  .  u 

*  Y  8  AO  Y  .  0 

£  iOAdY 

.  U 

)  <  o  Y  •  ( i 

. 

800£0d 

.  0 

8  AS  c  .  0 

89  £ id A.O 

0  8 £ £ Y  A 

•  u 

A  .'A  . 

. 

<  >•'  1  Y 

.0 

»•  SS  I  A*  .0 

£  i  c‘  8  h  S  .  0 

t  ot  i  \e 

.  0 

i  . 

£  I  8  £  8  S  .  0 

<J  A *  j  \  AS 

.  0 

0  Y  8  Y  S  S  .  o 

PY0P8  1 .0 

AY  0S8 d • 0 

SAY88I .0 

O.S 

81  AC  18.  • 

03P6YS. 0 

0.  A 

(J  t  Y  rt  A  . 

809* SS .0 

O.d 

. 

AAaSYI .0 

0.9 

0  J  Y  88  S  .  0 

0 A8 A£ J  .0 

U.S1 

A 

i  . 

0.  81 

. 

Y  . 

0.81 

S  d  S  8  £ i .0 

68  AO Y 0.0 

O.OS 

l^D  1  TU  J08  JAOITYJAOA 


o  8  V  0  .  i 

I  '  M  '  . 

1  ■  V  . 

"  *  v  8  A  .  0 
■  »  Y  J  Y  •  J 

- 

8  0  1  f  Y  A  .  0 
.  ■  . 
c  lYOY  .0 

<:  (?.'■  a  s  •  0 


A 

. 

i  .  ■  r  .  . 

At  J  Ar  ( 

£  W  . 

Y. 

. 

i  ••  a .  o 
I £ \ 0A£ . 0 
U  \  :  j  A  f  . 

. 


8  I  m  on 

€ 

*  8  8  AO  0  , 
80  J  ck)l 
S  St  <3 0  s  , 
p\  Aden 
dcospe, 
8  S 1  S  d  A , 
0  1  d  J  d  a  . 

eeoees* 

■ 

I8S 


i  I  v  I  A  8  3  ■  U  T  A  P  i  9  M  3  T 


i  YIHIPP.O 
1  0\  S  A  8 . 0 
£ 8dS8d • 0 
1 AUPJ  8.0 
YPOYSA.O 
p£90£  t  .o 

S  S8  SO  S . 0 

. 

1 PdA£  I  .0 


88  Y 10. 1 

0380Sc .0 

. 

S  A  P  8  Y  S  .  0 
0 1 8 £  SS . 0 

V  J  .  0 

8£ sAf j .o 

8  £  8  e  0  J  .  0 
8£880I .0 
1  1  I . 


3M1  T 
0.0 
0.1 
O.S 
0.  A 

o.p 

O.SJ 

o.ei 

o.ei 

o.os 


8*0*83  Q3TAI0U22A 


OOYOOO.O 
9  WO  .0 
A  *0  .0 

9  AdOO .  0 
e AYeoo.o 
AS£  100.0 

OS  I  0  .  >  ■ )  #  (j 

•  ~  .  -  .  .  - 

•  ~  0  -  .  -  1  A 01  .  <- 


S 

1 

3MIT 

£  81300.0- 

no. 

0.0 

8  1 -AO  I 0.0 

>.  - 

0.1 

'<  udouo.  o 

8  I  8SOO.O~ 

O.S 

YY€000.  - 

8  a  POOO • 0- 

0.  A 

Y ACOOO.O 

.  - 

O.d 

1 

■  1 

0.9 

A  1000  0. 

.  - 

0.S1 

.  - 

. 

.  - 

i  .  - 

0.81 

.  - 

.  - 

O.OS 

A 

.  - 

Y* 

. 

oy  ) a  .<■ 

A  J  is  0  . 

£  v  )  I  0  . 

■  I . 


£ 

A*  Y  1  I  Q.O 
8  1  Y c  0  0 . 0 
998100.0 
AIOO.O 

A  £  Y  0  0  .0 
Oc 0000.0 


H-l  1~D 

SN  SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST 


0  SIBFTC  DARSI  NODECK 

1  REAL  TANAL!  15*10), TIME( 1 5 ) , T I ( 10),TEVR(15*10)  ,  X  (  1  0  ) ,  V AR  ( LO) 

2  REAL  S (  10, 10 ) ,R (  10)  ,  V (  10, 10)  , A ( 10) , B (  10)  , Wi ( 10 )  , w2 ( 10 ) 

3  REAL  ERROR { 1 5 , 1 0 ) ,C  1  (  10 )  ,W(10,10) 

4  1  FORMAT ( IX, 214) 

5  2  FORMAT! 1 X , F 1 3 . 8 , 4F 1 4 . 8 ) 

6  3  FORMAT! IX, 7FL0.6) 

7  4  FORMAT! 1X,3F14.8) 


10 

5 

FORMAT! IX, 

25F3.0) 

11 

220 

FORMAT! 1H2 ) 

12 

221 

FORMAT! 1H 

, 10X , 8H  • • CONTD ) 

13 

222 

FORMAT ( 1H 

,//) 

14 

223 

FORMAT!  1H 

,/  ) 

15 

224 

FORMAT ( 1H 

» 1 8X , 26H  TEMPERATURE  PROF l LE S-ONE- , 

11 1HDIMENSI0NAL/25X, 22H  HOMOGENEOUS  MEDIUM) 

16 

231 

FORMAT!  IH 

, 30X, 12H  GRID  POINTS) 

17 

232 

FORMAT!  1H 

, 10X, 5F11 .6) 

20 

233 

FORMAT!  1H 

, 28X, 25H  INITIAL  CONDITION  VECTOR) 

21 

234 

FORMAT!  1H 

, 10X, 5F 12 • 4 ) 

22 

235 

FORMAT (  IH 

,28X,26H  BOUNDARY  CONDITION  VECTOR) 

23 

240 

FORMAT! IH 

, 30X , 1 9H  COEFFICIENT  MATRIX) 

24 

241 

FORMAT ( IH 

, 10X,  10F6. 1) 

25 

242 

FORMAT! IH 

, 31 X, 12H  E IGENVALUES ) 

26 

243 

FORMAT! IH 

, 31X, 13H  EIGENVECTORS) 

27 

244 

FORMAT!  IH 

, 20X , 35H  CHECK  OF  SIMILARITY  TRANSFORMATION) 

30 

245 

FORMAT!  IH 

, 30x, 25H  semi-analytical  solution) 

31 

246 

FORMAT ! IH 

,25X,28H  TEMPERATURES  AT  GRID  POINTS) 

32 

247 

FORMAT !  IH 

, 30X, 19HANALYTICAL  SOLUTION) 

33 

248 

FORMAT  < IH 

, 15X, 5H  TIME,5X,2H  1,  9X,2H  2,  8X,2H  3,  8X, 

12H  4,  8X,2H  5) 

34 

249 

FORMAT! IH 

, 1 5X , 5H  TIME,  9X,2H  6,  8X,2H  7,  8X,2H  8,  8X, 

12H  9,  8X , 2H 1 0 ) 

35 

251 

FORMAT! IH 

, 15X, F6. 1 , 2X , 5F 10.6) 

36 

25  5 

FORMAT (  IH 

, 30X, 1 8H  ASSOCIATED  ERRORS) 

37 

RE AC ( 5 , 1 ) 

N ,  NT 

42 

RE AD ( 5 , 5 ) 

( (S(J,K),K=1,N),J=1,N) 

53 

READ  (5,2) 

!X!J  ),J=1,N  ) 

60 

READ ( 5 , 2 ) 

!  T  I  (  J  )  ,  J=  1  ,  N  ) 

65 

READ ( 5 , 2 ) 

(  C  1  (  J  )  ,  J=  1 » N  ) 

72 

READ  (5,3) 

(TIME! J) , J=1,NT) 

77 

READ  (5,4) 

ALPHA, RM,DX 

00 

M AXN= 1 0 

01 

M  =  N 

02 

CALL  EIG1 (N,MAXN,M, S,R»V,A,B,Wl,W2) 

03 

CALL  CHECK! V,R, N,W) 

04 

PI  =  3. 1415927 

05 

DO  10  K=  1 , 

N 

06 

DO  10  J  =  l, 

NT 

07 

TANAL! J,K  ) 

=  0.0 

10 

DO  9  L= 1 , 60 

11 

AL- L 

12 

A A= ( 2 • *  AL— 

1 . ) *P I *X ( K ) 

13 

AB=- ( 2 • * AL 

_ 1 . )**2*(PI/2.  )**2*ALPHA*TIME(J)/RM 

14 

9 

TANAL! J,K) 

=  TANAL ( J,  K )  +  S I N ! A A ) *  EXP ( AB ) / !2.*AL-1. ) 

16 

10 

TANAL! J,K) 

=  4  . *T  ANAL ( J,K) /PI 

-I 
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FORTRAN  SOURCE  LIST  DARS I 


SOURCE  STATEMENT 

DO  15  K=1,N 
V  AR ! K ) =0 . 0 
DO  15  J  =  1 ,  N 

VAR(K)=VAR(K)+V(J,K)»TI(J) 

15  CONTINUE 

DO  25  L=1,NT 
DO  25  K=  1  f  N 
TEVR(L,K  )  =  0.0 
DO  25  J  =  1 »  N 
CQNST=ALPHA*R(J  )  *TIME( L ) / (DX**2) 
TEVR(L,K)=T£VR(L,K) +  V  {  K  ,  J )*VAR ( J )*EXP(CONST ) 

25  CONTINUE 

DO  26  J= 1 »  NT 
DO  26  K  =  1 ,  N 

26  ERROR! J  ,  K )  =  T ANA L ( J , K  )-TEVR( J,K ) 

WR I TE ( 6 *  2 20 ) 

L  INES=9 

CALL  L  INECT (LINES*4,2) 

WRI TE ( 6 , 224 ) 

WRITE (6*223) 

WRITE(6, 231) 

CALL  LINECT(LINES,2,2) 

WR I TE ( 6  *  2  32 )  (X( J),J=1,N) 

CALL  LINECT (LINES*4»2) 

WRITE! 6*  223 ) 

WRITE(6, 233) 

CALL  LINECT (LINES»2»2) 

WRITE(6t 234)  (T  I  ( J) , J=1*N) 

CALL  LINECT!LINES,4,2) 

WRITE(6,223) 

WRITE(6,235) 

CALL  LINECT !LINES*2f2) 

WRITE!6,234)  (Cl! J)  ,J  =  1,N) 

CALL  LINECT(LINES»4,2) 

WR I TE ( 6»  22 3 ) 

WRITE(6» 240) 

D0  31  J=  1  *  N 

CALL  LINECT (LINES* 1 f  2 ) 

31  WRI TE ( 6  t  24 1 )  ( S ( J , K )  , K=  1 , N ) 

CALL  LINECT(LINESt3, 2) 

WRITE! 6,223) 

WR I TE ( 6 , 242 ) 

CALL  LINECT(LIN£S*2,2) 

WRITE(6,232)  (R(J), J=1,N) 

CALL  LINECT(LINES,3,2) 

WR I TE ( 6 , 223 ) 

WRITE(6,243) 

DO  32  K=  1 , N 

CALL  L INECT(L  INES,4,2) 

WR  I  TE ( 6 , 2  32  )  !  V  (  J ,K ) , J= 1 , N ) 

32  WRITE(6,223) 

CALL  LINECT ( L INES , 1 »  2 ) 

WRITE! 6, 244) 

DO  33  J=  1 , N 

CALL  LINECT(LINES,4,2) 
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ISN  SOURCE:  STATEMENT 


851 

WRITE! 6, 232) 

156 

33 

WRITE(6,223) 

260 

WRITE!6,220) 

261 

WRITE(6,245) 

262 

WRITE! 6,223) 

263 

WR I TE ( 6 , 246 ) 

264 

WRITE!6,248) 

265 

00  34  J= 1 , NT 

266 

34 

WRI TE! 6, 251 ) 

274 

WRITE(6,223) 

275 

WRITE(6,246) 

276 

WRITE! 6, 249) 

277 

DO  35  J  =  1 , NT 

JOO 

35 

WRITE(6,251) 

>06 

WRI TE  <  6 , 220 ) 

107 

WRITE! 6,247) 

)10 

WRITE! 6, 223) 

Jil 

WR I TE! 6,246) 

>12 

WRI TE! 6, 248 ) 

>13 

DO  36  J= 1 , NT 

>14 

36 

WRITE(6,251) 

>22 

WRITE!6,223) 

>23 

WR I TE ! 6 , 246 ) 

>24 

WRITE! 6,249) 

>25 

DO  37  J=  1 , NT 

>26 

37 

WRITE! 6,251 ) 

>34 

WRITE(6,220) 

>35 

WRITE(6,255) 

>36 

WRITE(6,223) 

>37 

WRITE! 6,248) 

>40 

DO  38  J= 1 »  NT 

>41 

38 

WRITE!6,251) 

>47 

WR I TE ! 6, 223 ) 

>50 

WRITE! 6,249) 

>51 

DO  39  J  =  1 ,  N  T 

>52 

39 

WRITE! 6,251) 
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END 
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PROGRAM  IS  BEING  ENTERED  INTO  STORAGE. 
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TEMPERATURE  PROFILES- ONE- DIMENSIONAL 
HOMOGENEOUS  MEDIUM 


0.047619 

0.285714 


GRID  POINTS 
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1 

2 

0.0 

-0.020549 

0.004472 

i.O 

-0  .003277 

0.0  10416 

2.0 

-0.002828 

0.000560 

4.0 

-0.001248 

-0.001113 

6.0 

-0.000720 

-0.000906  - 

9.0 

-0.000404 

-0.000604  - 

12.0 

-0.000252 

-0.000398  - 

15.0 

-0.000152 

-0.000239  - 

18.0 

-0.000080 

-0.000118  - 

20.0 

-0.000045 

-0.000058  - 

25.0 

0.000006 

0.000027 

30.0 

0.000022 

0.000049 

40.0 

0.000008 

0.000018 

50.0 

-0.000015 

-0.000029  - 

70.0 

-0.000042 

-0.000083  - 

IME 

6 

7 

0.0 

-0.004265 

-0.006124  - 

1.0 

0.000264 

0.000038 

2.0 

0.002097 

0.000746 

4.0 

0.003187 

0.002379 

6.0 

0.002186 

0.002277 

9.0 

0.001136 

0.001621 

12.0 

0.000741 

0.001230 

15.0 

0.000601 

0.000998 

18.0 

0.000530 

0.000827 

20.0 

0.000490 

0.000730 

25.0 

0.000386 

0.000520 

30.0 

0.000275 

0.000347 

40.0 

0.000074 

0.000089 

50.0 

-0.000072 

-0.000079  - 

70.0 

-0.000219 

-0.000243  - 

3 

4 

5 

.011101 

0.008432 

0.001667 

.011790 

0.005350 

0.001426 

.005505 

0.006555 

0.004452 

.000453 

0.002303 

0.003308 

.000375 

0.000617 

0.001597 

. 000485 

-0.000065 

0.000530 

.000365 

-0.000134 

0. 000259 

.000212 

-0.000052 

0.000232 

.000081 

0.000045 

0.000257 

.000016 

0.000094 

0.000269 

.000074 

0.000152 

0.000259 

. 000088 

0.000140 

0.000204 

.000029 

0.000042 

0.000057 

.000042 

-0.000054 

-0.000064 

.000121 

-0.000158 

-0.000190 

8 

9 

10 

.003539 

0.001220 

0. 004793 

.000005 

0.000000 

-0.000001 

.000211 

0.000049 

0.000011 

.001465 

0.000796 

0.000466 

.002012 

0.001643 

0.001396 

.001933 

0.002091 

0.002148 

.001651 

0.001954 

0.002111 

.001363 

0.001640 

0.001789 

.001103 

0.001316 

0.001431 

.000951 

0.001122 

0.001215 

.000641 

0.000734 

0.000784 

.000411 

0.000459 

0. 000485 

.000103 

0.000114 

0.000119 

.000083 

-0.000086 

-0.000088 

.000261 

-0.000273 

-0.000279 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 
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APPENDIX  C 


Two-Dimensional,  Homogeneous  Media 


1.  Rectangular  Bodys 

,  .  du  _  /d2u  .  d2u  \ 

The  p.d.e.  is  —  =  a  — x  +  — x 

dt  W2  dy2  J 

O^x^  a 
O^y^-b 

Boundary  conditions  are 
at  x  =  0 ,  u  =  0 

at  y  =  0 ,  u  “  0 

atx=6.5,|^=0 

at  y  -  3.5,  =  0. 

The  grid  spacing  is  shown  in  Fig,  111,2, 

2,  Square  Bodys 

The  p,d,e„  is  the  same  as  above.  The  boundary 
conditions  ares 
at  x  s  Oj  u  “  0 

at  y  ”  0 ,  u  —  0 

at  x  =  5,5,  *  0 

at  y  ■  5,5,  ^ 

The  grid  spacing  is  shown  in  Fig.  XIX.  3. 

The  analytical  solutions  for  the  two-dimensional 
media  were  obtained  by  multiplying  the  analytical  solutions 
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C2 

for  the  two  one-dimensional  media,  according  to  the  method 
of  Neumann  (15) . 

Errors  are  (Analytical  solution  minus  semi-anal- 
ytical  solution)  . 
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fortran  source  list 


f-5  2-D  RECT 

SOURCE  STATEMENT 

3  $  I BF TC  DARSI  NODECK 
C 
C 

C  SOLUTION  TO  THE  FORWARD  PROBLEM-HOMOGENEOUS  MEDIUM 

C  TWO-DIMENSIONAL  SYSTEM-RECTANGLE 

C 

C  INPUT  DATA 

C 

C  N=NUMBER  OF  GRID  POINTS 

C  NT=NUMBER  OF  TIMES 

C  S  =  COEFF IC I  ENT  MATRIX ( DI AGONALS  ONLY  ARE  REQUIRED) 

C  PZ= I N  I  T I AL  CONDITION  VECTOR 
C  C  I  =  BOUNDARY  CONDITION  VECTOR 

C  TIMEi=THE  ACTUAL  TIMES 

C 

L  REAL  S(  25,25 ) ,R ( 25) , V( 25,25 ) , A (25 ) , B{ 25) , W1 (25) , W2 (25) 

l  REAL  P ( 15, 25 ) ,PZ ( 25 )  ,C  I  ( 25) , WORK (25 ) , TIME1 ( 15 ) , W( 25,25 ) 

3  REAL  T(  15,25), ERROR(  15,25) 

+  1  FORMAT ( 1 X , 2  1 4 ) 

3  FORMAT ( IX, 25F3.0) 

A  FORMAT ( IX, 2AF3. 0 ) 

5  FORMAT (  IX , 20F3. 0 ) 

53  FORMAT ( IX, 25 F 3*0) 

5 A  FORMAT ( IX, 1 5  F  5  ♦  2) 

220  FORMAT ( 1H2 ) 

221  FORMAT (  1H  ,  10X, 8H  •  •  CONTD ) 

222  FORMAT ( IH  ,//) 

223  FORMAT ( 1H  , / ) 

22 A  FORMAT ( 1 H  ,18X,26H  TEMPERATURE  PROF  I LE S-T WO- , 

1 1 1HD IMENS IQNAL/ 25X, 22H  HOMOGENEOUS  MEDIUM) 

232  FORMAT ( 1H  ,10X,5F11.6) 

233  FORMAT (  1H  ,28X,  25H  INITIAL  CONDITION  VECTOR) 

2 3 A  FORMAT ( 1H  ,10X,5F12.A) 

235  FORMAT (  1H  ,  28X,  26H  BOUNDARY  CONDITION  VECTOR) 

2A0  FORMAT ( 1H  ,A5X,19H  COEFFICIENT  MATRIX) 

2A1  FORMAT (  1H0, 5X,25F5. 1 ) 

2A2  FORMAT (  1H  ,31X,12H  EIGENVALUES) 

2A3  FORMAT (  1H  ,31X,13H  EIGENVECTORS) 

2A A  FORMAT (  1H  ,20X,  35H  CHECK  OF  SIMILARITY  TRANSFORMATION) 
2A5  FORMAT ( 1H  ,30X,25H  SEMI-ANALYTICAL  SOLUTIGN) 

2A7  FORMAT ( 1H  , 30X,  19HANAL YT ICAL  SOLUTION) 

251  FORMAT ( 1H0, 10X, 6  F  1 0  •  6  ) 

255  FORMAT ( IH  ,30X,18H  ASSOCIATED  ERRORS) 

256  FORMAT ( IH  ,20X,22H  TEMPERATURES  AT  TIME=,F7.2) 

RE AC ( 5 , 1 )  N , NT 
M AXN=25 
M  =  N 

DO  2  J= 1 , N 
DO  2  K  =  1 ,  N 
2  S(J,K)=0.0 

READ ( 5 , 3 )  ( S( J, J ) ,J=i,N) 

•  N 1=N- 1 

>  RE A D ( 5 , A  )  ( S( J, J+ 1 )  , J=1 »N1 ) 

-  N6  =  N-6 

^  RE AC ( 5 , 5 )  ( S ( J, J+6 ) , J= 1 ,N6 ) 
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SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST  DARSI 


DO  51  J= 1 »  N 1 

51  S( J  +  l, J)=S( J,J+1) 

DO  52  J=1,N6 

52  S( J+6,J)=S( J,J+6) 

READ ( 5  *  53 )  (PZ< J) ,J=1,N) 

RE AD ( 5 »  53 )  (Cl( J)  ,J=1,N) 

RE AD ( 5 , 54 )  (TIME1(J),J=1,15) 

CALL  EIG11N,MAXN,M,S,R,V,A,B,W1,W2> 
CALL  CHECK! V,R,N,W) 

WRITE! 6, 220) 

L  I  NES  =  9 

CALL  LINECT(LIi\lES,5,2) 

WRITE! 6,224) 

WRITE! 6,223) 

WR  ITE(6,233) 

CALL  LINECT (LINES, 4, 2) 

WRITE (6, 234)  ( P Z  !  J ) , J= 1 , N ) 

CALL  LINECT(LINES,3,2) 

WRITE(6,223) 

WRITE(6,235) 

CALL  L  INECT (LINES, 4, 2) 

WRITE(6,234)  ( C  1  ( J  )  ,  J  =  1 , N ) 

CALL  LINECT!LINES,3,2) 

WRITE(6,220) 

L  INES  =  9 
WRITE(6,240) 

DO  31  J=1,N 

31  WRITE(6,241)  ( S  (  J  ,  K )  ,  K= 1 , N ) 

WRITE (6,220 ) 

CALL  LINECT (LINES, 5, 2) 

WRITE(6,242) 

WRITE! 6, 232)  (R(J),J=1,N) 

CALL  LINECT (LINES, 3, 2) 

WRITE! 6, 223) 

WRITE(6,243) 

DO  32  K= 1 , N 

CALL  LINECT (LINES, 6, 2) 

WRITE(6,232)  ( V ( J  ,  K  )  ,  J  =  1 , N ) 

32  WR  I  TE ( 6, 223 ) 

CALL  L INECT (LINES, 1 ,2) 

WR I TE ( 6, 244 ) 

DO  33  J=  1 »  N 

CALL  LINECT ( L  INES,6,2) 

WRITE(6,232)  ( W ( J  ,  K )  ,  K=  1 , N ) 

33  WR  ITE(6,223) 

CO  8  J  =  1 ,  iM 
WORK ( J ) =0 • 0 
DO  8  K= 1 , N 

8  W0RK(J)=WGRK(J)+V(K,J)*C1 (K) 

DO  9  J=1 , N 

9  Cl  ( J  )=WORK( J ) 

DO  10  J= 1 , N 
WORK ( J ) =0 • 0 
DO  10  K=1,N 

10  WORK ( J ) =WORK ( J ) +V(K,J)*PZ(K) 
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2-D  R  ECT 

SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST  DARSI 


DO  II  J=  1  »  N 
II  PZ ( J )=WORK( J  ) 

CO  18  J=  1 »  15 
DO  15  K=1,N 
U AR  =  R ( K ) *T I  ME  1 ( J ) 

15  WORK ( K ) = ( (R(K)*PZ(K)+C1(K) ) * E X P ( UAR ) -C 1 ( K ) )/R(K) 
DO  17  L1=1,N 

P  (  J  ,  L 1 )  =  0  *  0 
DO  16  L2=1,N 

16  P(J,L1)=P(J,L1) +V(L1,L2)*W0RK( L2 ) 

17  CONTINUE 
13  CONTINUE 

CALL  ANALTA(NT, T I  ME  1 , T  ) 

DO  28  J=1,NT 
DO  28  K=1 * N 

28  ERROR! J,K)=T(J,K)-P!J,K) 

DO  101  J= i , NT 
WRITE(6,220) 

WR  1  TE ! 6  *  2 56 )  TIMEl(J) 

WRITE(6,223) 

WRITE!6,245) 

WRITE! 6,251 ) 

WRITE! 6*223) 

WRITE! 6,247) 

WRI TE! 6, 251 ) 

WRITE(6,223) 

WR I TE (6,255) 

WRI TE ( 6, 251  ) 

101  CONTINUE 
END 


(P ( J,K) » K  =  1 , N ) 


!  T ( J , K )  , K  =  1 , N ) 


(ERROR! J,K) ,K=1,N) 
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FORTRAN  SOURCE  LIST 

SUURCE  STATEMENT 
$  I BFTC  ANALTA 

SUBROUTINE  ANAL TA ( NT , T IME , T2D ) 

ANALTA  CALCULATE S  THE  ANALYTICAL  SOLUTION  FOR  THE  RECTAN¬ 
GULAR  BODY  USING  NE WM AN*  S  METHOD. 

REAL  TANAH 15,10) ,TX( 15, 10) ,TIME(15) , X < 1 0 ) ,T2D( 15,25) 

NC=  1 
N  =  6 
NX  =  N 

ALPHA=1.0 
RM=42. 25 
X (  I  )  =  . 07692308 
X(  2 )  =  .  15384616 
X  (  3 )=. 23076924 
X  (  4 )=. 30769232 
X  (  5 )=. 38461540 
X<  6)  =  . 47153848 
100  PI  =  3. 1415927 
DU  10  K=lfN 
CO  10  J=  1 » NT 
T  AN AL ( J  »  K ) =0 . 0 
CO  9  L=  1 »  20 
AL  =  L 

A A= ( 2 . * AL— 1 • ) *P  I  *  X ( K  ) 

AB=— ( 2 • * AL- 1 • >**2*( PI/2. ) * *  2* A LPHA* T I  ME ( J ) /RM 
9  T ANAL  I J»K)  =  TANAL( J , K ) +S IN { A A ) *  EXP  I AB) / ( 2. *AL-1. ) 

10  TANALC J,K)=4.*TANAL (J,K)/PI 
I F ( NC.GE . 2 )  GO  TO  115 
CO  110  J  =  1 » NT 
DU  110  K= 1 »  N 
110  TX ( J  »  K ) =TANAL ( J  »  K ) 

NC=NC+ 1 
N  =  3 

RM=  12.25 
X(  1)=.  1428571 
X ( 2 )=. 2857142 
X( 3)=. 4285713 
I F ( NC • LE . 2 )  GO  TO  100 
115  DO  39  L= 1 » NT 
M  =  0 

DO  37  K=1,N 
DO  37  J=  1 »  NX 
M  =  M+  1 

37  T  2 D ( L  »  M  )  =  TX ( L , J ) * T ANAL ( L , K ) 

39  CONTINUE 
RETURN 
END 
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PROGRAM  IS  BEING  ENTERED  INTO  STORAGE. 
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HOMOGENEOUS  MEDIUM 
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0.122564 
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0.220708 

0.246796 

0.260379 

0.084034 

0.161185 
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0.307740 

0. 324679 

ASSOCIATED 

ERRORS 
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TEMPERATURES  AT  T IME= 
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SEMI-ANALYTICAL  SOLUTION 
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TEMPERATURES  AT  T  IME=  10.00 


SEMI-ANALYTICAL  SOLUTION 


0.012841 

0.024876 

0.035378 

0.043751 

0.049561 

0. 052531 

0.023138 

0.044825 

0.063749 

0.078837 

0.089305 

0.094658 
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0.079494 
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TEMPERATURES  AT  T I ME=  15.00 


SEMI-ANALYTICAL  SOLUTION 

0.003534 

0.006861 

0.009787 

0.012142 

0.013790 

0.014639 

0.006369 

0.012364 

0.017636 

0.021879 

0.024849 

0.026378 
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0.015417 
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0.011750 
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0.014215 
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ERRORS 
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TEMPERATURES  AT  T  I ME=  20.00 


0.000981 

0.001767 

0.002204 


SEMI-ANALYTICAL  SOLUTION 


0.001905 

0.002718 

0.003373 

0.003631 

0.004068 

0.003432 

0.004897 

0.006077 

0.006904 

0.007330 

0.004279 
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0.007578 

0.008609 

0.009140 

0.000932 

0.001679 

0.002094 


0.001810 

0.003261 

0.004067 
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0.002582 

0.004653 

0.005803 
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0.005775 
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0.008182 
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0. 006989 
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TEMPERATURES  AT  T  IME=  35*00 


SEMI- ANALYTICAL  SCLUTICN 


0  .000021 

0.000041 

0.000058 

0.000072 

0.000082 

0. 000087 

0.000038 
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TEMPERATURES  AT  T  IME=  -0.00 
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1.000000 
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5  2-D  SQUARE 

SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST 


$  I B  F  T  C  DARSI  NODECK 
C 

c 

c  SOLUTION  TO  THE  FORWARD  PROBLEM-HOMOGENEOUS  MEDIUM 

C  TWO-DIMENSIONAL  SYSTEM-SQUARE  BODY 

C 

C  INPUT  DATA 

C 

C  N=NUMBER  OF  GRID  POINTS 

C  NT=NUMBEP  OF  TIMES 

C  MATR  IX  =  COEFFIC IENT  M A  TP  I  X { D I  AGONAL S  ONLY  ARE  REQUIRED) 

C  PZ=INITIAL  CONDITION  VECTOR 

C  C  l=BOUND AR Y  CONDITION  VECTOR 

C  TIME  1  =  THE  ACTUAL  TIMES 

C 

DOUBLE  PRECISION  MA TR  I  X ( 25 , 2 5 ) , VECTOR ( 25 , 25 ) , TOL ERC , W { 25  *  2 5 ) 
DOUBLE  PRECISION  P (  1 5 , 25 ) , PZ ( 2 5 ) , C l ( 25 ) , WORK ( 25 ) , T I  ME L < 15 ) , UAR 
DOUBLE  PRECISION  T ( 1 5 , 2 5 ) , ERROR { 1 5 , 25 ) 

1  FORMAT ( IX, 214) 

3  FORMAT ( IX , 25F3. 0 ) 

4  FORMAT ( IX, 24F3. 0  ) 

5  FORMAT ( 1X,20F3.0) 

53  FORMAT ( IX,25F3.0) 

54  FORMAT ( IX,  15F5.2) 

220  FORMAT ( 1H2) 

221  FORMAT ( 1 H  ,10X,8H  • • CONTD ) 

222  FORMAT ( 1H  ,//) 

223  FORMAT ( 1 H  ,/) 

224  FORMAT ( 1H  ,18X,26H  TEMPERATURE  PROF  I LES-TWO-, 
111HDIMENSIONAL/25X, 22H  HOMOGENEOUS  MEDIUM) 

232  FORMAT ( 1H  ,10X,5F11.6) 

233  FORMAT ( 1H  ,28X,25H  INITIAL  CONDITION  VECTOR) 

234  FORMAT ( 1H  ,10X,5F12.4) 

235  FORMAT (  1 H  ,28X,  26H  BOUNDARY  CONDITION  VECTOR) 

240  FORMAT (  1H  ,45X,19H  COEFFICIENT  MATRIX) 

241  FORMAT ( 1HC, 5X,25F5. 1  ) 

242  FORMAT ( 1H  ,31X,12H  EIGENVALUES) 

243  FORMAT ( 1 H  ,31X,13H  EIGENVECTORS) 

244  FORMAT ( 1H  ,20X,35H  CHECK  OF  SIMILARITY  TRANSFORMATION) 

245  FORMAT ( 1H  ,30X,25H  SEMI-ANALYTICAL  SOLUTION) 

247  FORMAT ( 1 H  , 30X, 19HANAL YTICAL  SOLUTION) 

251  FORMAT ( 1H0, 10X, 5F 12 • 7 ) 

255  FORMAT ( 1H  ,30X,18H  ASSOCIATED  ERRORS) 

256  FORMAT ( 1H  ,2 0X,22H  TEMPERATURES  AT  TIME=,F7.2) 

READ ( 5 , 1  )  N , NT 

N0RM=2 

T  OL  ERC  =  0 . DOO 
DO  2  J  =  1 , N 
DO  2  K=  1 ,  N 

2  MATRIX( J  »  K ) =0 . 0 

RE AD ( 5 , 3  )  (MATR I  X ( J , J)  ,  J=1»N) 

N1=N-1 

READ( 5,4  )  (MATR  IX ( J , J+l  )  * J=lfNl ) 

N5=N-5 

READ! 5, 5)  (MATRIX(J,J+S),J=1,N5) 
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FORTRAN  SOURCE  LIST  DARSI 


DO  51  J=1,N1 

5 1  MATR I X ( J  + 1 , J ) =M ATR I  X ( J  ,  J+  1 ) 

DO  52  J  = 1 r N 5 

52  MATRIX! J  +  5 , J ) =M ATR I  X ( J , J  +  5 ) 

READ ( 5 , 53 )  (PZ(J),J=l,N),{Cl(J),J=ltN) 

RE AD { 5 , 54 )  (TIMEl(J)  ,J=1,13) 

WR I TE ! 6,  220 ) 

L I NES=9 

CALL  LINECT (LINES, 5,  2) 

WRITE! 6, 224) 

WR I TE ( 6»  223 ) 

WRITE! 6, 233) 

CALL  LINECT (LINES*4,2) 

WR I TE ( 6 , 234 )  !PZ!  J) ,J=1,N) 

CALL  LINECT (LINES, 3, 2) 

WRITE! 6, 223) 

WR I TE ( 6 »  235 ) 

CALL  LINECT (LINES»4,2) 

WRITE!6,234)  (Cl!  J)  ,  J  =  1,N) 

WRITE! 6,220) 

WRITE! 6,240) 

DO  31  J=  I ,  N 

31  WR I TE ! 6 , 24  1  )  (MATRI X ! J ,K ) , K=1 , N) 

CALL  JACOBI ( N, M ATR I  X, VECTOR, TO LERC, NORM) 

CALL  CHECK! VECTOR, MATRIX ,N,W) 

DO  8  J=  1  ,  N 
WORK! J )=0.0 
DO  8  K=  1 , N 

8  WORK! J ) =  WORK  t  J ) +VEC TOR ! K , J ) *C 1 !K) 

DO  9  J  =  1 ,  N 

9  Cl ! J  )  =  WORK ! J ) 

DC  10  J=  1 ,  N 
WORK ( J ) =0 • 0 
DO  10  K=  1 ,  N 

10  WORK ( J )=WORK! J) +VEC TOR ! K, J ) *PZ (K ) 

CO  11  J  =  1 »  N 

11  PZ ! J  )  =  WORK ! J ) 

DO  18  J= 1 , NT 
DO  15  K=  1 , N 

UAR=MATRIX!K,K)*TIME1< J) 

15  WORK ! K ) = ( !MATRIX(K,K)*PZ(K)+C1 !K) )*DEXP!UAR)-C1!K) )/MATRIX(K,K) 
DO  17  L 1=  1 1 N 

P!J,L1  )=0.0 
CO  16  L2=  1 , N 

16  P( J,L1 )=P( J , L 1 ) + VEC TOR (L1,L2)* WORK! L2 ) 

17  CONTINUE 

18  CONTINUE 
WRITE(6,220) 

L  I NES=9 

CALL  LINECT (LINES, 6, 2) 

WRITE(6,242) 

WRITE!6,232)  ! M ATR I  X ( J , J ) » J  =  1  ♦  N  } 

CALL  LINECT (LINES, 3, 2) 

WR ITE(6,223) 

WR I TE ( 6, 243 ) 
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5  2-D 


SQUARE 

SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST  DARSI 


DO  32  K=1,N 

CALL  LINECT( LINES, 7, 2) 

WRITE (6, 232)  (VECTOR (J,K) ,J=1,N) 

32  WRITE(6,223) 

CALL  LINECT(LINES,1,2) 

WRITE!6, 244) 

CO  33  J=  I »  N 

CALL  LINECT(LINES,7,2) 

WRITE (6, 2  32)  ( W ( J ,K  )  , K= 1 , N ) 

33  WRITE(6,2?3) 

CALL  ANALTB( NT, TIME  1  ,T  ) 

DU  73  J= 1 , NT 
DO  75  K= 1 1  N 

75  ERROR! J,K)=T( J,K)-P ( J,K) 

DO  101  J  =  1  ,  N T 
WRITE(6, 220) 

WRITE!  6 , 256)  TIMEK  J) 
WRITE(6,223) 

WRITE! 6,245) 

WRITE (6, 251)  ! P ( J , K ) , K= 1 , N ) 

WRITE(6,223) 

WR I TE ( 6 , 24  7 ) 

WRITE (6, 251)  !T ( J  ,K  )  ,K=1 , N) 
WRITE(6,223) 

WRITE! 6, 255) 

WRITE (6, 251  )  (ERROR! J,K)  ,K=1 ,N) 
101  CONTINUE 
END 
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FORTRAN  SOURCE  LIST 

SOURCE  STATEMENT 
$  I BF TC  ANALTB 

SUBROUTINE  ANAL TB ( NT , T I ME , T2D ) 

ANALTB  CALCULATES  THE  ANALYTICAL  SOLUTION  FOR  THE  SQUARE 
BODY  USING  NEWMAN*S  METHOD. 

DOUBLE  PRECISION  TANAL (  15,10) ,TX( 15*15) »  T IME {  15) ♦  X  ( 10) 
DOUBLE  PRECISION  T2D { 1 5 , 25 ) t AL PHA , RM , P I , A A , AB , AL 
NC=  I 
N=  5 
NX  =  N 

ALPHA= 1.0 
RM=30.25 
X (  1  )=0. 09090909 
X ( 2)  =0.18181818 
X<3)=0. 27272727 
X ( A ) =0 . 36363636 
X(  5  1  =  0.-45454545 
100  PI  =  3. 1415927 
DO  10  K=1,N 
DO  10  J= 1 »  NT 
TAN AL ( J  »  K }  =  0 . 0 
DO  9  L  =  1 »  20 
AL  =  L 

A A= ( 2 . * AL— 1 • )*PI*  X (K) 

AB=— ( 2  *  * AL- 1 •  )**2*(PI/2. ) **2*ALPHA*TI  ME  (  J ) /RM 
9  TANAL { J,K ) =TANAL ( J, K  )+DSIN( AA) *DEXP ( AB) / ( 2.*AL-1. ) 

10  TANAL(J»K)=4.*TANAL(J»K)/PI 
DO  110  J  =  1 »  NT 
DO  110  K=1,N 
110  TX( J,K)=TANAL(J,K) 

CO  39  L=  1 »  N  T 
M=0 

DC  37  J= 1 , NX 
DO  37  K=  1  *  N 
M  =  M+  1 

37  T2D<L,M)=TX(L»J )*TANAL(LfK) 

39  CONTINUE 
RETURN 
END 
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-0.162028 

-6.513337 

-5.397877 

-4.372786 

-3.763521 

EIGENVALUES 
-7.365014  -6.513337 
-1.796384  -5.397877 
-5.661660  -4.372786 
-2.405649  -2.911844 
-3.521109  -3.430741 
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-4. 546200 
-4. 546200 
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-1.380557 
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0.028863 
0.055388 
0.077425 
0.093190 
0. 101405 

EIGENVECTORS 
0.055388  0.077425 

0.106288  0.148578 

0.148578  0.207694 

0.178831  0.249983 

0.194596  0.272021 

0.093190 
0.178831 
0.249983 
0. 300884 
0.327408 

0.101405 

0.194596 

0.272021 

0.327408 

0.356271 

-0. 106288 
0.178831 
-0.194596 
0.148578 
-0.055388 

0.178831 

-0.300884 

0.327408 

-0.249983 

0.093190 

-0.194596 

0.327408 

-0.356271 

0.272021 

-0.101405 

0. 148578 
-0.249983 
0.272021 
-0.207694 
0.077425 

-0.055388 

0.093190 

-0.101405 

0.077425 

-0.028863 

0.020641 

0.081399 

-0.254076 

0.310120 

-0.141338 

-0. 133276 
0.028853 
0.247061 
-0.384021 
0. 186448 

0.285473 

-0.267702 

-0.011704 

0.221545 

-0.129695 

-0.316512 

0.370203 

-0.171488 

-0.031397 

0.047671 

0.139826 

-0.174744 

0.103904 

-0.018818 

-0.006393 

0.000674 

-0.032267 

-0.106549 

-0.196207 

-0.257459 

0.034444 

0.001695 

-0.115541 

-0.269488 

-0.377594 

0.108840 

0.118836 

0.001294 

-0.180755 

-0.314600 

0.  198133 
0.271857 
0.  181638 
-0.000812 
-0. 142802 

0.259017 
0.379140 
0.314118 
0. 139298 
-0.002852 

-0.109494 

-0.176967 

-0.186686 

-0.157567 

-0.128041 

-0.176556 
-0.275194 
-0.268222 
-0. 194011 
-0.127798 

-0.185360 

—0.266778 

-0.210117 

-0.072819 

0.037228 

-0. 155138 
-0. 190677 
-0.070587 
0.131788 
0.283587 

-0.124859 

-0.123137 

0.041101 
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0.463017 

0.252061 

-0.325547 

0.213797 

-0.064691 

0.002281 

-0.307968 

0.352350 

-0.147107 

-0.053488 

0.056677 

0.169615 

-0.104954 

-0.142931 

0.289555 

-0.147918 

-0.013378 
-0.115250 
0.321739 
-0.383412 
0.  173453 

-0.020743 
0.086254 
-0. 167046 
0.178897 
-0.078069 
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-0.095541 

-0.192664 

-0.276832 

-0.330005 

-0.351353 

-0.017872 

-0.052185 

-0.087361 

-0.099021 

-0.092888 

0.108343 

0.182902 

0.235527 

0.292051 

0.338572 

0.073715 
0.111361 
0.  131419 
0. 168489 
0.208348 

-0.057264 

-0.142639 

-0.225780 

-0.260533 

-0.256290 

0.149431 
0.122855 
-0.249606 
-0.046843 
0.12399 2 

-0.331742 

-0.071561 

0.272907 

0.191096 

-0.250474 

0.385864 

0.036013 

-0.251419 

-0.242718 

0.285519 

-0.243662 
-0.113226 
0.285250 
0.114094 
-0. 191448 

0.067972 
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-0.010574 
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0.195771 

-0.013668 

-0.290544 

-0.118669 

0.282635 

0.325797 

0.072981 

-0.330892 

-0.181292 

0.286654 

0.250682 

0.135121 

-0.128703 

-0.126135 

0.069029 

-0.061242 
0.020470 
0.1 16708 
0.039862 
-0.119491 

-0.368793 
-0.157951 
0  •  2  54445 
0.192472 
-0.179911 

0.207694 

0.272021 

0.148578 

-0.077425 

-0.249983 

0.272021 
0.356271 
0. 194596 
-0.101405 
-0.327408 

0.148578 

0.194596 

0.106288 

-0.055388 

-0.178831 

-0.077425 
-0. 101405 
-0.055388 
0.028863 
0.093190 

-0.249983 

-0.327408 

-0.178831 

0.093190 

0.300884 

-0.231096 
0.308497 
-0.3108  16 
0.288268 
-0.130324 

0.014546 
0.110670 
-0. 162283 
0.038177 
0.024234 

0.100092 

-0.315463 

0.388820 

-0.203586 

0.034037 

0.16  1000 
-0. 158603 
0.137809 
-0.176446 
0.097735 

-0 .166548 
0.238362 
-0.246411 
0.214692 
-0.091948 

-0.300884 

0.249983 

0.093190 

-0.327408 

0.178831 

0.249983 

-0.207694 

-0.077425 

0.272021 

-0.148578 

0.093190 

-0.077425 

-0.028863 

0.101405 

-0.055388 

-0.327408 

0.272021 

0.101405 

-0.356271 

0.194596 

0.178831 
-0.148578 
-0.055388 
0.194596 
-0. 106288 

0.137448 

0.212158 

0.086345 

-0.040228 

-0.183960 

-0.263397 

-0.302882 

-0.204119 

0.112612 

0.292766 

0.263625 

0.368267 

0.180018 

-0.090399 

-0.330556 

-0.203146 
-0.278046 
-0.  140858 
0.071625 
0.251416 

0.090151 

0.079388 

0.078912 

-0.046860 

-0.086209 

0.068870 

-0.274179 

0.097173 

0.392828 

-0.305042 

0.23656 2 
-0.016286 
-0.171724 
-0.006693 
0.078829 

-0.181794 

0.218237 

0.019603 

-0.296277 

0.189850 

-0.355503 

0.059277 

0.239057 

-0.040933 

-0.076098 

0.316693 
-0.134168 
-0. 168519 
0. 155676 
-0.031253 
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0.071298 
— 0 . 049980 
0.147084 
-0.009768 
0.095296 

0.066840 

-0.230202 

0.094530 

-0.244690 

-0.062993 

0.174710 

-0.165828 

0.350162 

-0.079633 

0.197490 

0. 140303 
-0.333884 
0.233737 
-0. 321794 
-0. 008162 

0.192354 

-0.287169 

0.360790 

-0.222040 

0.130535 

-0. 158930 
0.235261 
-0.278993 
0.211154 
-0.064294 

-0.176014 
0.350221 
-0.342411 
0.26457 2 
-0. 122892 

-0.125675 

0.152607 

-0.208154 

0.155520 

-0.031573 

0.070258 

-0.073281 

0.111881 

-0.082820 

0.010715 

0.172765 
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0.322548 
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0.331156 

0.364331 

0.126266 

-0.135189 

-0.265425 

0. 163647 
0. 123450 
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0.063809 
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-0. 169139 
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0.286827 
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-0.303587 
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0.302277 

-0.067795 

-0.085488 

0.163457 
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-0.183944 
-0. 179760 
0. 199976 

0.260317 

-0.125289 

-0.130325 

0.149948 

-0.043955 

-0. 180353 
-0. 169837 
0.230469 
0.272139 
-0.281960 

0.008029 

0.167939 

-0.097859 

-0.247098 

0.207783 
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0.070889 
0.210694 
0.07665 2 

0. 134490 
-0. 194749 
-0.131983 
0.081727 
-0.203937 

0.218946 
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-0.101486 

0.214158 

-0.176357 

0.316609 
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0.279901 

-0.291934 
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TEMPERATURES  AT  TIME= 


0.00 
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TEMPERATURES  AT  T I ME= 


1.00 


0.2743429 

0.4359324 

0.4998470 

0.5185052 

0.5226683 

0.2709201 

0.4386256 

0.5028576 

0.5180647 

0.5202765 

-0.0034228 
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TEMPERATURES  AT  T IME= 


2.00 
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0.2631049 
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0.3319727 
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0.8147661 
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TEMPERATURES  AT  T IME= 


4.00 


0.0766736 

0.1438270 

0.1950981 

0.2283585 

0.2443677 


SEMI 

0.1438270 

0.2697956 

0.3659717 

0.4283627 

0.4583934 


ANALYT ICAL 
0.1950981 
0.3659717 
0.4964324 
0.5810644 
0.6218003 


SOLUTION 
0.2283585 
0.4283627 
0.58  10644 
0.6801245 
0.7278051 


0.2443677 
0.4583934 
0.6218003 
0. 7278051 
0.7788283 


ANALYTICAL  SOLUT 

ION 

0.0761437 

0.1432251 

0.1949468 

0.2288583 

0.2453135 

0.1432251 

0.2694040 

0.3666917 

0.4304787 

0.4614306 

0.1949468 

0.3666917 

0.4991120 

0.58  59  340 

0.6280632 

0.2288583 

0.4304787 

0.5859340 

0.6878588 

0.7373166 

0.2453135 

0.4614306 

0.628063 2 

0.7373166 

0. 7903304 

-0.0005299 

-0.0006019 

-0.0001513 

0.0004998 

0.0009457 
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-0.0006019  -0.0001513 
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0.0007200  0.0026797 
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0.0004998 
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0.0077343 

0.0095115 


0.0009457 

0.0030372 

0.0062629 
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0.0115020 


0.0062629 
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TEMPERATURES  AT  T I ME= 


6.00 


SEMI 

-ANALYTICAL 

SOLUTI CN 

0.0501346 

0.0955525 

0.1323741 

0.1580071 

0.1710839 

0.0955525 

0.1821155 

0.2522944 

0.3011488 

0.3260722 

0.1323741 

0.2522944 

0.3495  170 

0.4171976 

0.4517253 

0.1580071 

0.3011488 

0.4171976 

0.4979840 
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0.1710839 
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0.4517253 

0.5391977 

0.5838 222 

ANALYTICAL  SOLUT 

ION 

0.0500907 

0.0955885 
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0.1585677 

0. 1718467 

0.0955885 
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0.2531216 

0. 3025958 
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0.4198928 
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0.4198928 

0.5019635 

0.5439997 

0.1718467 

0.3279362 

0.4550561 

0. 5439997 

0.5895561 

ASSOCIATED  ERRORS 
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0.0002679 
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0. 0007628 
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0.0014470 

0.0018640 

0.0002679 
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0.0017236 

0.0026952 

0. 0033308 
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0  .0026952 

0.0039796 
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0.0007628 
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TEMPERATURES  AT  T IME= 


9.00 


SEMI 

-ANALYTICAL 

SOLUTION 

0.0297368 

0.0570011 

0.0795645 

0.0956368 

0. 1039848 

0.0570011 

0.1092628 

0.1525136 

0. 1833219 

0. 1993237 

0 .0795645 

0.1525136 

0.2128850 

0.2558884 

0.2782245 

0.0956368 

0.1833219 

0.2558884 

0.3075786 

0.3344267 

0.1039848 

0.1993237 

0.2782245 

0.3344267 

0. 3636182 

ANALYTICAL  SOLUT 

ION 

0.029788 2 

0.0571176 

0.0797599 

0.0959080 

0.1043032 

0.0571176 

0.1095204 

0 .1529362 

0.1838994 

0.1999968 

0.0797599 

0.1529362 

0.2135626 

0.2568002 

0.2792789 

0.0959080 

0.1838994 

0.2568002 

0.3087917 

0.3358214 

0.1043032 

0.1999968 

0.2792789 

0.3358214 

0.3652170 

ASSOCIATED  ERRORS 

0.0000514 

0.0001165 

0.0001954 

0.0002712 

0.0003184 

0.0001165 

0.0002576 

0.0004225 

0.0005776 

0. 0006731 

0.0001954 

0.0004225 

0.0006777 

0.0009118 

0.0010544 

0.0002712 

0.0005776 

0.0009118 

0.0012130 

0.0013947 

0.0003184 

0.0006731 

0.0010544 

0.0013947 

0.0015988 
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TEMPERATURES  AT  T  IME  =  12.00 


0.0181818 
0 .0348844 
0.0487527 
0.0586668 
0.0638305 


SEMI 

0.0348844 
0.0669307 
0.0935389 
0.1125606 
0. 1224678 


ANALYTICAL 

0.0487527 

0.0935389 

0.1307253 

0.1573090 

0.1711548 


SOLUTION 
0.0586668 
0.1125606 
0. 1573090 
0. 1892988 
0.2059602 


0.0638305 
0.1224678 
0.1711548 
0. 2059602 
0.2240881 


0.0181813 

0.0348857 

0.0487587 

0.0586788 

0.0638465 


ANAL 
0.0348857 
0.0669376 
0.0935568 
0.1125911 
0. 1225C68 


ICAL  SOLUTI 
0.0487587 
0.0935568 
0.1307616 
0.1573653 
0 .1712242 


0.0586788 

0.1125911 

0.1573653 

0.1893816 

0.2060601 


0. 0638465 
0. 1225068 
0.171224 2 
0.2060601 
0.2242074 


— 0. 0000005 
0.0000013 
0.0000061 
0.0000120 
0.0000161 


ASSOCIATED  ERRORS 


0.0000013 

0.0000070 

0.0000179 

0.0000305 

0.0000390 


0.0000061 

0.0000179 

0.0000363 

0.0000563 

0.0000693 


0.0000120 
0. 0000305 
0. 00C0563 
0.0000828 
0.0000999 


0.0000161 

0.0000390 

0.0000693 

0.0000999 

0.0001193 
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TEMPERATURES  AT  T I ME=  15.00 


0.0111718 
0.0214379 
0.0299664 
0. 036C667 
0.0392454 


SEMI 

0.0214379 

0.0411378 

0.0575034 

0.0692096 

0.0753093 


ANALYTICAL 
0 .0299664 
0.0575034 
0.0803797 
0.0967429 
0 . 1052691 


SOLUTION 

0.0360667 

0.0692096 

0.0967429 

0.1164372 

0.1266992 


0.0392454 
0.0753093 
0. 105269L 
0. 1266992 
0.1378656 


0.0111382 

0.0213737 

0.0298772 

0.0359600 

0.0391296 


ANALYTICAL  SOLUTION 


0.0213737 
0.0410152 
0.0573330 
0.0690056 
0  .0750880 


0.0298772 

0.0573330 

0.0801429 

0.0964594 

0.1049616 


0.0359600 

0.0690056 

0.0964594 

0.1160978 

0.1263311 


0.0391296 
0.0750880 
0. 1049616 
0. 1263311 
0.1374663 


-0.0000336 

-0.0000641 

-0.0000892 

-0.0001067 

-0.0001158 


ASSOCIATED  ERRORS 


-0.0000641  -0.0000892 


-0.0001226  -0.0001703 
-0.0001703  -0.0002368 
-0.0002040  -0.0002835 
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-0. 0003075 
-0.0003681 
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TEMPERATURES  AT  T  IME=  20.00 


SEMI 

-AN  AL YT I  CAL 

SOLUTION 

0.0049683 

0.0095341 

0.0133274 

0.0160411 

0. 0174552 

0.0095341 

0.0182957 

0.0255752 

0.0307826 

0. 0334962 

0.0133274 

0.0255752 

0.0357509 

0.0430302 

0.0468236 

0.0160411 

0.0307826 

0.0430302 

0.0517918 

0.0563575 

0.0174552 

0.0334962 

0.0468236 

0.0563575 

0. 0613256 

ANALYTICAL  SOLUT 

ION 

0.0049264 

0.0094537 

0.0132152 

0.0159060 

0.0173082 

0.0094537 

0.018  1416 

0.0253597 

0.0305233 

0.0332141 

0.0132152 

0.0253597 

0.0354497 

0.0426678 

0.0464292 

0.0159060 

0.0305233 

0 .0426678 

0.0513556 

0.0558829 

0.0173082 

0.0332141 

0.0464292 

0.0558829 

0.0608093 

ASSOCIATED  ERRORS 

-0.0000419 

-0.0000803 

-0.0001  123 

-0.0001351 

-0. 000L470 

-0.0000803 

-0.0001541 

-0.0002155 

-0.0002593 

-0.0002821 

-0.0001123 

-0.0002155 

-0.C00301 1 

-0.0003624 

-0.0003943 

-0.0001351 

-0.0002593 

-0.0003624 

-0.0004362 

-0. 0004746 

-0.0001470 

-0.0002821 

-0.0003943 

-0.0004746 

-0.0005164 
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APPENDIX  D 

Qrce— Dimensional .  Non— Homogeneous  Media 

The  P.d...  is  c  |a  =  |j  (kg*). 

O^X^rl 

The  boundary  conditions  are 
at  x  =  0,  u  *  1.0 

at  ■  x  -  6-3>  it  =,° 

The  following  values  of  the  parameters  were  employeds 
c  =  1.0 

k  =  1.0  +  0.5x. 

Semi-analytical  Solutions  A  ten-point  grid  (Fig.  III. 4)  was 
used. 

Numerical  Solutions  A  forty-point  grid  was  used.  The 
results  at  the  grid  points  corresponding  to  the  grid  of  semi- 
analytical  solution  were  obtained  by  interpolation.  An 
explicit  formulation,  with  an  initial  At  of  0.00001  and  a 
At  of  0.001  beyond  a  total  time  of  0.001  was  employed. 

Errors:  The  reported  errors  are  (numerical  solution  minus 

the  semi-analytical  solution) . 
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SOLUTION  TO  THE  FORWARD  PROBLEM -NON- HOMOGENEOUS  MEDIUM 
ONE-DIMENSIONAL  SYSTEM 

INPUT  DATA 

N=NUMBER  OF  GRID  POINTS 
NT=NUMBER  OF  TIMES 

KZEROt A1 f A2  , DX,GZERO,  TS-PARAMET ERS 
PZ= INITIAL  CONDITION  VECTOR 
C1=BCUNDARY  CONDITION  VECTOR 
TIME 1=ACTUAL  TIMES 

GRI DX= ACTUAL  DISTANCES  OF  THE  GRID  POINTS 

REAL  S(  1 6 ,  1 6  )  » R  (  1 6 ) *  V (  16,16), A(16)*B( 16)  »W1(16)  *  W  2 ( 1 6 ) 
REAL  W(16,16),TK(16),PZ(16),P(15,16),C1(16) ,WORK  (  16 ) 

REAL  T IMEl { 15 ) , GRIDX ( 16  )  ,TFIDI F ( 15, 16 ) , ERROR! 15,16) 

REAL  KZERO, A2,DX,GZER0, TS 
FORMAT! IX, 214) 

FORMAT  < IX ,  6F10.5) 

FORMAT! IX , 1 5F5*  2 ) 

FORMAT! IX, 10F5. 1) 

FORMAT!  1H2 ) 

FOR  MAT ( 1 H  , 1 OX , 8H  • . CONTD ) 

FORMAT ( 1H  ,//) 

FORMAT ( 1H  ,/) 

FORMAT! 1H  ,18X,26H  TEMPERATURE  PROF  I LES-ONE-, 
111HDIMENSI0NAL/25X, 22HNON-HOMOGENEOUS  MEDIUM) 


FORMAT! 1H 
FORMAT! 1H 
FORMAT!  1H 
FORMAT! 1H 
FORMAT ( 1H 
FORMAT! 1H 
FORMAT!  1H 
FORMAT! 1H 
FORMAT! IH 
FORMAT! 1H 
FORMAT! 1H 
FORMAT! 1H 
FORMAT! 1H 


, 30X, 12H  GRID  POINTS ) 

, 10X, 5F11.6) 

, 28X,  2 5H  INITIAL  CONDITIUN  VECTOR) 

,  10X, 5F12.4) 

, 28 X,  26H  BOUNDARY  CONDITION  VECTOR) 

,  30X ,  19H  COEFFICIENT  MATRIX) 

, 10X, 10F6.  1 ) 

, 31 X, 12H  EIGENVALUES) 

EIGENVECTORS) 

CHECK  OF  SIMILARITY  TRANSFORMATION) 
SEMI-ANALYTICAL  SOLUTION) 
TEMPERATURES  AT  GRID  POINTS) 
NUMERICAL  SOLUTION) 

T I  ME , 5X , 2H  1,  9  X , 2H  2,  8X,2H  3,  8X, 


, 3 IX, 13H 
, 20X, 35H 
, 30X, 25H 
, 25X, 28H 
, 30X,  19H 
, 15X, 5H 


TIME,  9X,2H  6,  8X,2H  7,  8X , 2H  8,  8X, 


FORMAT! 1H 
12H  4,  8X,2H  5) 

249  FORMAT! 1H  , 15X, 5H 
12H  9,  8X,2H10) 

251  FORMAT ! 1H  ,  15X, F6. 1 , 2X, 5F 10. 6 ) 

, 30X ,  1 8H  ASSOCIATED  ERRORS) 
N ,  NT 

KZERO* Al, A2,DX,GZER0,TS 
!PZtJ  ) , J- 1 1 N  )  * ( C 1 ( J ) , J  =  1 »  N ) 
( T I  ME  1  ( J ) , J  =  1,NT) 

(GRIDX! J) , J=1,N) 


255 


FORMAT! 1H 
READ ! 5 , l ) 
RE AD ( 5 , 2 ) 
READ! 5,2) 
RE AD ( 5, 3 ) 
RE AD ( 5 , 7 ) 


DO  20  J= 1 , N 
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A  J=  J 

DELX=DX/2.+(AJ-l. )*DX 
VALUE=  A2*DELX 

20  TK( J)=KZERO+VALUE 
DO  21  J  =  1 »  N 

DO  21  K=1,N 

21  S ( J  *  K ) =0 • 0 
N1=N-1 

DO  22  J= 1 » N1 

S( J» J ) =- ( TK  C J)+TK( J  +  l) ) 

S( J,J+1)=TK! J  +  l  ) 

22  S(J+lfJ)-S(J*J+l) 

S(N*N)=-TK(N) 

DO  23  J= 1 »  N 
DO  23  K=  1 , N 

23  S(J»K)=S(J»K) /{ GZER0*DX**2) 

C 1 C 1 )  =  TK ( 1 ) *  TS/ (GZER0*DX**2) 

MAXN=16 

M=N 

CALL  EIGUN,  MAXN,Mf  S,R,V,A,B,W1,W2) 
CALL  CHECK! V,R,N,W) 

WRITE!6,220) 

L I NES=9 

CALL  LINECT!LINES,5,2) 

WR I TE ! 6 1  2  24 ) 

WRITE(6f 223) 

WRITE(6»231) 

CALL  LINECT(LINES,2,2) 

WRITE (6, 2 32)  ( GR I DX ( J ) , J= 1 , N ) 

CALL  LINECT(LINES,3,2) 

WRITE(6,223) 

WRITE! 6,233) 

CALL  LINECT(LINES»2»2) 

WRITE<6,234)  ( P  Z ( J )  , J=1,N) 

CALL  LINECT(LINES,3,2) 

WR I TE ! 6,  223 ) 

WR I TE ( 6  *  235 ) 

CALL  LINECT(LINES,2, 2) 

WR I TE ( 6  t  234 )  (Cl!  J) , J=1,N) 

CALL  LINECT(LINES,3,2) 

WRITE!6,223) 

WR I TE ( 6  »  240 ) 

DO  31  J=  1 » N 

CALL  LINECT(LlNES,lt2) 

31  WR I TE ! 6 »  24 1  )  ! S ( J , K ) , K= 1 , N ) 

CALL  LINECT(LINES,5,2) 

WR  ITE ! 6 »  223 ) 

WR I TE ! 6 »  242 ) 

WRITE(6»232)  (R(J)tJ=lfN) 

CALL  LINECT(LINES,3,2) 

WRITE!6,223) 

WR I TE ! 6 , 243 ) 

DO  32  K-  1  »  N 

CALL  LINECT ( L  INES*4, 2) 

WR I TE ( 6 »  2  32 )  <V(J,K),J=1,N) 
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32  WR I TE ! 6  »  223 ) 

CALL  LINECT (LINES* 1, 2) 

WRITE! 6,244) 

DO  33  J  =  I » N 

CALL  LINECT(LINES,4,2) 

WR I TE ( 6, 232 )  (W(J,K)  ,K=I,N) 

33  WR ITE! 6, 223 ) 

CALL  MAIN (N, WORK, V,C1 ,PZ, R, TIME  I , NT, P ) 
CALL  F ID  IFF { 40, N, NT , P Z , GZ ERO , T S , K ZE RO , A2 , 
16*3, GRIDX, TIME!  ,  T  F I D  I F  ) 

DO  27  J  =  1 ,  N  T 
DO  27  K=  1 »  N 

27  ERROR! J,K)=TFIDIF ( J ,K)-P{ J,K) 

WR I TE! 6, 220 ) 

WR I TE! 6, 245 ) 

WRITE(6,223) 

WRITE(6,246) 

WR I TE  t  6, 248 ) 


34 


DO  34  J=  1 , NT 

WRITE! 6,251)  TI ME  1 ( J ) , ! P ( J , K ) , K= 1 , 5 ) 


WRITE!6,223) 

WR I TE ( 6 , 246 ) 

WR I TE ( 6, 249 ) 

DO  35  J= 1 , NT 

35  WRITE!6,25I)  TIMEHJ)  ,  (P(J,K)  ,K  =  6,I0) 
WRITE!6,220) 

WRIT6(6,247) 

WR I TE ( 6, 223 ) 

WR I TE ! 6 , 246 ) 

WR I TE  t  6, 248  ) 

DO  36  J  =  I , N  T 

36  WRITE16,251)  T I  ME l ! J ) »  (TFIDIF!  J,K)  »  K=  1  ,5) 
WR I TE ! 6 , 22  3 ) 

WR I TE ( 6 , 246 ) 

WRITE! 6, 249) 

DO  37  J= 1 , NT 

37  WRITE!6,251)  TI  ME1 !  J  )  ,  ( TF  IDI F ( J, K ) , K=6 , 10 ) 
WRITE! 6,220) 

WR  ITE(6,255) 

WRITE!6,223) 

WR I TE ! 6, 248 ) 

DO  38  J= 1 , NT 

38  WRITE!6,251)  TI  ME  1 ! J  ) , ( ERROR ( J *K ) , K- 1 , 5  ) 

WR I TE! 6, 223 ) 

WR I TE  t  6 , 249 ) 

DO  39  J  =  1 » NT  t 

39  WRITE!6,251)  TI  ME  1!  J  ) ,  !  ERROR ( J *K ) ,K-6 , 10 ) 

CONTINUE 

END 
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FORTRAN  SOURCE  LIST 


J 0  SIBFTC  FIDIFF 


I 


SUBROUTINE  F  I  D  I  F F ( N , NGR 1 0 ,NT , TEMP ,GZERO,TS,KZERO,A, 

1CAPX, GR  IDX.TIMEl.TGRID ) 


C 

C 

c 


FIDIFF  CALCULATES  THE  FINITE-DIFFERENCE  SOLUTION. 


REAL  TEMP (40) tT PRIME (40) , TK ( 40 ) , GZERO , TS , KZERO, A t CAPX , MODLUS 
REAL  GR I C  X ( 10 ) »  X ( 40 )  ♦  TGR I D ( 15  » 10) »  T I  ME  1 (  L5) 

AN=N 

DX  =  CAPX/ ( AN+0.5 ) 

DO  10  J=  1 1 N 
AJ=J 

DELX=DX/2.+( AJ-1.0) *DX 
V ALUE=A*DELX 
10  TK(J)=KZERO+VALUE 
DO  101  J= 1 1  N 
A  J  =  J 

101  X  (  J  )=DX* A J 
0T=0.001 
TSTORE=DT 
DT=T STORE/ 100* 

TOT  ALT  =  0 • 0 
LK=  1 

IF(TOTALT.GE.TIMEKLK)  )  GO  TO  18 

15  TPRIME ( 1 ) =TEMP (  1  ) +DT* (- ( TK ( 1 ) +  TK ( 2 )  ) *TEMP{ 1 ) +TK( 2 ) *TEMP ( 2 ) +TK ( 1 ) 
IS )/ (GZERO*( DX**2)  ) 

N 1=N— 1 

DO  17  J=2*N1 

17  TPR IME ( J ) =TEMP( J ) +DT* ( TK( J ) *TEMP ( J- l ) - ( TK ( J ) +TK ( J+ L ) ) *TEMP (J ) +TK 
1+1)*TEMP( J+l) )/(GZER0*(DX**2) ) 

TPRIME ( N )=TEMP( N ) +DT* ( TK ( N ) *TE MP ( N- 1 ) -TK ( N ) *TEMP ( N ) ) / ( GZERO * ( Dx * 

1)  ) 

TOTALT=TOTALT+DT 

IF(T0TALT.G£.TIME1( LK) )  GO  TO  18 
GO  TO  20 

18  DO  181  K  A= 1 , NGR  I  D 

CALL  INTERP(N,GRIDX,X,TPRIME,KA,RR) 

181  TGR ID( LK , KA ) =RR 
LK  =  LK+  1 

IF(LK.GT.NT)  GO  TO  21 

20  DO  19  J  =  1  ♦ N 

19  TEMPI J  )=TPR IME( J ) 

IF(TOTALT.GE.TSTORE )  DT=TSTORE 
IF(TOTALT.LT.TIMEKNT)  )  GO  TO  15 

21  CONTINUE 
RETURN 
END 


f 


>  I  +  (  ) 


m  1  r  (  (  (  J  ’ 

•  ‘  \  » \  (  i 


t 


T  e  I  J  J35U 

\  I ,  A I , 

1  T  I  < 


t  .  nr.'  j D c; ■  .* o 2 

•mnm  ot3hu 

t  f  I  t  )  MM  >  1  r  JZ 

{  (j  I  T  t  I  I  I  I  X  !  )  ,Xf<A 01 

nil-  11  1-i  HT  ?  .1 T  /  J  .  J  As'  linn  J 

3 


,  ,  ucl.  \,  ,  (  5*  )  T  t  (  0^  )  d  I  vtjT,  (  OA  )  GM-3T  JA3fl 

(  !  )  j  -  ,  (  J  ,  r  1  )  1  T  ,  {  '/A)  X  t  I  J  J  )  X  3  I  HO  J  t -3  : 

H  =  ,  A 

(  r.  )-M  A  )  \  MU  0=X'J 
lA,i=l  01  00 

L  =  L  A 

X'l  *  (  j .  I  -  L  M  M \X  )  =  X J30 
A  )3d»A=3UJAV 
fJJAW  ))  \  = ( l ) XT  Oi 
H,i=l  101  UG 
t  =  LA 

L  A  #  X I  =  (  L  )  X  101 
I  0  0 . 0  =  T  0 
T  3  =  3  >■  OT 2 T 
.00  I  \  T  T  =  T  0 
0.0= T JATOT 
J  =XJ 

i  J  I  (  (  X  J  )  1  IT.  30.  T  1  1  >1)  3  1 
)  Ml)'  i  »((L)  MiMI-lH  Ml)4  T=(i)l  i«m  C  i 

(  (  «»  ■<  •  )«  \c  )  \(  i.i 

!-'/=!/ 

1  n  ♦  s  =  t  i3 

M  )  r  )  -  (  -L  )  M  •  r  *  ( l  )  X  T  )  «  T  l  +  (  i •  )  G  1  =  (  l.  )  3  1  M  T  VI 

(  (3**x0  )*  \0)\((JU)l'.iiniH 

)  T#(  )  -(]-')  1 T  ^  (  )  XT  )  *|  u  M  V-  )  MT=  (  /  )  3  ■  1  AST 

{  (  I 

T()4  i  JAT0T=T JATOT 
Blul  (  (  J  )  :  j  IT  .  30. T  JA T  )T  )  1 1 

05  OT  00 

I#0.,I-AX  jfl  03  \<  ] 

( i  ,  i ,  1  ’  ‘  i  T  ,  x  ,  x '  U  , ;  f  )  y  \  v  I  j  j  A  J 

•■'«=  (  AX,  XJ  )0I  h  r)  T  1  1 

1  +  X  J  =  X  J 

is  r  no  (  t ,  .  r o .  i j ) 3 1 

Mi  =  L  91  l)G  05 
(L)=M  MIT=(  L  )  9(331  91 
(  :  -  IT  <?T  .  0.  T  I A  TOT  )  3  i 
cM  J  I  )<  (  (  1 1  )  J  3  1  1  I  .  1  J  .  T  JA.  I  IT  )  31 

3U/IT  ..03  IS 
-UT.3TI 
CJH3 


c 


i 


< 


)4  FNH-2  1-D 


IbLCR 


JUB 


RAO 


^OGRAM  IS  BEING  ENTERED  INTO  STORAGE. 


TEMPERATURE  PROFILES-ONE- DIMENSIONAL 
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0.60C000 

3.600000 
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1.200000  1.8C0000 

4.200000  4.8C0000 
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5.400000 
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0.0 

4.9 

-10.6  5.7 

0.0 
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0.0 
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0.0 
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EIGENVALUES 
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TEMPERATURES  AT  GRID  POINTS 
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0.0 

-0  .000000 

0.000000 

-0.000000 

0.000000 

-0.000000 

0.3 

0.443562 

0.166755 

0.056064 

0.017431 

0.005110 

0.6 

0.572120 

0.302380 

0.150358 

0.071288 

0.032542 

1.0 

0.650484 

0.407695 

0.247675 

0.146586 

0.084892 

1.5 

0.702167 

0.485284 

0.330511 

0.222257 

0.  147993 

2.0 

0.733804 
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0.646727 
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0.716614 
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0.870574 
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APPENDIX  E 


A  Two-Dimensional  Petroleum  Reservoir 


The  p.d.e.  describing  the  process  is 

fm  a  /'mi  9p\  °-887  °xvB- 

<5x  Igi  TOx)  S7  \  n  dyj  A 


0.887  S  h  0  c 
o 

5.61 


dP 

St 


where 


k 

h 

|i 


permeability,  darcies. 

formulation  height,  ft. 

viscosity  of  oil,  assumed  constant,  cp 

formulation  volume  factor,  reservoir  bbls/stock 
tank  bbl. 


S 


o 


0 


c 


P 

t 


*,y 


=  fraction  of  oil  saturation 
=  porosity 

-  compressibility,  assumed  constant,  l/psi„ 
=  pressure  of  oil,  psi. 

=  time,  days 

/  I'u 

=  distance  coordinates. 

=  Production  of  oil,  stock  tank  barrels/day 

2 

=  Area  of  productidn,  ft  . 


Fig.  IV. 1  represents  the  reservoir  formation. 

The  computer  program  calculates  the  pressure  dis¬ 
tribution  in  the  reservoir  at  various  elapsed  times  using  the 
semi-analytical  method.  The  amount  of  oil  produced  is  cal¬ 
culated  by  two  methods  using  equations  (IV. 12)  and  (IV. 17) . 
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fortran  source  list 


H-5  2-D 

SOURCE  STATEMENT 


$IBFTC  CARSI  NODECK 


c 

c 

c  PRESSURE  DISTRIBUTION  IN  A  PETROLEUM  RESERVOIR 

C 

c  INPUT  DATA 

C 

c  N=NUMBER  OF  GRID  POINTS 
C  PZ=  I  N  I  T  I  AL  PRESSURE  DISTRIBUTION 
C  |\i T  =  NUMBER  OF  TIMES  FED  IN 

C  Cl=PRODUCT ION  AND  BOUNDARY  CONDITION  VECTOR 
C  TIME1=EL APSED  TIMES 
C  DIAG=PHI-H, FEET 
C  TK=PERMEAB IL I TY-H,D ARCY-FEET 

C  A2I  TO  A40- ARE AS  THAT  ARE  DIFFERENT  FROM  OTHERS, SQ.FT 
C  DX , DY— NORM AL  GRID  S PAC I NGS , FE ET 
C  DYSTAR-THE  OCD  GRID  SPACING  IN  Y-D IRECT ION 
C  COMP=COMPRESSIBILITY, 1/PSI 
C  VISC=VISCO$ITY, ASSUMED  CONSTANT, CP 

C  FACTCR  =  F ACTOR  TO  CONVERT  THE  PRODUCTION  VECTOR  TO  THE  CONSIS- 
C  TENT  UNITS  OF  THE  FLOW  EQUA T I  ON ( RE F-C A LHOUN , P. 84 ) 

C  F V  F  =  FORM AT  ION  VOLUME  F AC  TOR , A SSUME D  CONSTANT 

C 

c 


REAL  S  (  4  0,40 ) ,R { 40) , V( 40,40 ) , A  I  40) ,B(40) , W1 (40) , W2 (40)  ,W(40,40 ) 
REAL  TK( 40) ,PZ( 40 ) , P ZSA VE ( 40 ) , P ( 25 , 40 ) , C 1 ( 40 ) , WORK  (40) 

REAL  TIME1(25),DI AG (40) ,DINV(4C) , AREA (40) 

1  FORMAT ( IX, 214) 

2  FORMAT ( IX ,  10F7.  I  ) 

3  FORMAT ( IX,  I5F5.2) 

5  FORMAT (  IX,  10F7.  1  ) 

6  FORMAT ( 1X,6F12.6) 

30  FORMAT ( 1H  ,18X,22H  INITIAL  PRE SSURE S, P SI ) 

31  FORMAT ( 1H  ,20X,19H  PRODUC TI ON , STB/DAY ) 

32  FORMAT ( 1 H  ,25X,18H  PHI-H  MATRIX, FEET) 

33  FORMAT ( 1H  ,23X,  22H  K-H  MATR I  X , DARCY-FEET ) 

46  FORMAT ( 1H  ,30X,6H  T I ME= ,  F6. 1 , 5H  DAYS) 

47  FORMAT ( 1H  ,34X,5F8.2) 

48  FORMAT ( IH  ,  18X, 7F8.2 ) 

49  FORMAT ( 1H  , LOX, 8F8. 2 ) 

50  FORMAT ( 1 H  ,//) 

51  FORMAT ( 1H  ,20X,15H  PRODUC T I  ON , STB , 1 1 X , 1 7H  MATERIAL  BALANCE) 

52  FORMAT ( 1H  , 20X, E 14. 7 , 15X, E 14. 7 ) 

220  FORMAT ( 1H2  ) 

223  FORMAT ( 1 H  ,/) 

RE AD ( 5 , 1 )  N , NT 

(PZ( J  )  ,J=1,N) 

(Cl  ( J )  ,  J= 1 , N ) 

(TIMEK  J)  ,  J=1,NT) 

(DIAGI J), J=1»N) 

READ ( 5,5)  { TK ( J  )  , J= 1 »  N )  hvctao 

RE  AD ( 5,6 )  A21,A29,A30,A36,A37»A38»A39,A40,0X,DY,DYSTAR 

RE  A  C ( 5 , 6 )  COMP, V  ISC , FACTOR, FVF 

DO  17  J= 1 , N 
17  ARE A ( J ) =DX*D Y 


READ( 5,2 ) 
RE AD ( 5 , 2 ) 
RE  AD ( 5 , 3 ) 
RE AD ( 5 , 5 ) 
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1-5  2-D 

SOURCE  STATEMENT 

AREA ( 2  1  ) =  A2i 
AREA ( 29 ) =A29 
AREA ( 30 ) =A30 
AREA( 36)=A36 
ARE  A ( 3  7 ) =  A  3  7 
ARE A ( 3  8  )  =  A  3  8 
AREA ( 39 ) = A  39 
ARE  A  I  4  0 ) = A40 


FORTRAN  SOURCE  LIST  DARSI 


STORE  CAPACITIES  OF  INDIVIDUAL  ELEMENTS  IN  THE  ARRAY  AREA 

DO  18  J=  1  *  N 
PZSAVEI J)=PZI J) 

18  AREA(J)=AREA(J) *UIAG(J)*CGMP/(5.61*FVF) 


CALCULATE  THE  TOTAL  PRODUCT  ION, STB/DA Y 


C 

C 


PRGD=0 . 0 


DO  19  J= 1 , N 
19  PR0D-PR0D+C1 ( J) 
PROD=— PROD 


WRITEI 6, 220) 
WRITE(6,30) 
WR I TE I  6  *  47 ) 
WRITEI 6,48 ) 
WR  I  TE I  6  »  49 ) 
WRIT£(6,49) 
WR  I  T E { 6,49 ) 
WRITEI6,49) 
WRITEI 6, 223) 
WRITE(6,31 ) 
WRITEI6,47) 
WRITEI 6,48) 
WRITE(6,49) 
WRITEI 6,49) 
WRITEI 6,49 ) 
WRITEI 6,49) 
WRITE(6,223) 
WRITE(6,32) 
WRITEI 6,47 ) 
WRITE(6,48) 
WRI TEI 6,49) 
WRITEI 6,49) 
WRITE(6,49) 
WRITE(6,49) 
WRITE(6,223) 
WRITEI6,33) 
WRITE(6,47) 
WRITE(6,48 ) 
WR I TE I  6 , 49 ) 
WRI  TE (6,49) 
WRITEI 6,49 ) 
WR  ITEI 6, 49 ) 


I PZ  I  J ) , J  =  36 ,40 ) 
(PZIJ), J=29,35) 
(PZ I  J  )  , J  =  2 1 , 28 ) 
(PZIJ), J  =  1 3 , 20 ) 
( PZ I J ) , J=  7,12) 
I PZ I J ) , J=  1,6) 


I C 1  I J), J  =  36,4C) 
(Cl  I J), J=29,35) 
(Cl  I  J), J  =  21,28) 
(Cl  I J) , J  =  13,20) 
(Cl  I  J), J=  7,12) 
I C 1  I J  ) , J  =  1,6) 


I TK I J ) »  J  =  36 ,40 ) 
I TK I J ) , J=29 , 35 ) 
I TK I J ) , J  =  2  1 , 28 ) 
I TK I J ) , J=13,20) 
I TK I J ) , J=  7,12) 
I TK I J ) , J  =  1,6) 


I D I  AG  I J )  ,  J  =  36,40) 
I DI AG  I J ) , J  =  29,35) 
I D I  AG  I J ) , J  =  2 1 , 28 ) 
I DI AGI J ) , J  =  13  » 20 ) 
I DI AGI J ) , J=  7,12) 
I DI AGI J ) , J=  1 »6) 


CONVERT  DIAG,TK,  AND  Cl  INTO  RELEVENT  UNITS 
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FORTRAN  SOURCE  LIST  DARSI 


-5  2-D 

SOURCE  STATEMENT 


C 

DO  7  J  =  1  * N 

DIAG( J)=DIAG( J) *COMP *0.887/5. 61 
TK! J)=TK{ JJ/VISC 
7  C1(J)=C1(J)*FVF*Q.887/(DX*DY) 

C 

c  FORM  THE  COEFFICIENT  MATRIX 

Q 

CALL  MATRIX! TK , C I , A 2  1 , A29 , A 30 , A36 , A 37 , A38 , A39 , A40 , 
ICX, DY,DYSTAR,N, S,DI AG) 

CALL  TRANS ( DI AG , C I , DX , DY , A2 I , A29 , A 30 , A36 , A3 7  , 

IA38, A39, A40) 

TRANSFORM  StClfAND  PZ 

CALL  DER  IVE  (  DIAG,DINV,  S,C1,PZ,I\) 

CALCULATE  THE  EIGENVALUES  AND  EIGENVECTORS  OF  MATRIX  S 

MAXN=40 
M  =  N 

CALL  £IGl(NtMAXN,MfS,R,V,A,B,Wl,W2) 

CALCULATE  THE  PRESSURES  AT  VARIOUS  TIMES 


CALL  MAIN(i\l,WORK,VtCl»PZ,R,TIMEl*NT,P) 

DO  15  J=  1  >  NT 
DO  14  K=1,N 

14  P( J,K)=P! J,K)*DINV(K) 

15  CONTINUE 

CALCULATE  THE  PRODUCTION  BY  A  MATERIAL  BALANCE 

CALL  B AL A NS ( N,  NT,  P, T I  ME  I ♦ PROD, COMP, ARE A, WORK, 

1PZ , PZSAVE  ) 


OUTPUT  RESULTS 


WRITE(6,220) 

L  I  NES  =  9 
DO  25  J= 1 f  NT 
CALL  LINECT (LINES*15*2) 
WRITE(6»46)  TIMEl(J) 

WRITE (6, 47)  (P( J,K) ,K=36,40) 

WR I TE ( 6  »  48  )  (P( J*K)  »K=29» 35) 
WRITE(6»49)  (P( J»K) » K=21t28) 

WR I TE { 6  t  49  )  (P(J,K),K=13,20) 

WRITE(6»49)  (P!J,K),K=  7,12) 

WR I TE ! 6 1  49 )  (P(J,K),K=  1»6) 

WRITE! 6,51  ) 

WRITE ( 6, 52 )  WORK! J) ,PZ! J) 

25  WRITE(6,223) 

END 
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SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST 


$  I BF  TC  MATRIX 

SUBROUTINE  M  ATR  I  X ( T K , C 1 , A 2 1 , A 2  9 , A 30 , A  36 , A 3 7 
1DX,DV,DYSTAR,N, S,DIAG) 


A38, A39, A40, 


MATRIX  CALCULATES  THE  COEFFICIENT  MATRIX  FOR  THE  RESERVOIR. 


REAL  rK { 40 ) , C 1 { 40 ) , S ( 40 , 40)  ,DIAG{40) 

DO  I  J  =  1  » N 
DO  I  K  =  1 ,  N 
1  S ( J  t  K ) =0 • 0 
CX  X  =  2 . » { DX*  *2 ) 

DY Y=2 . * ( D Y  *  *2 ) 

S(1,2)=(TK(1)+TK(2) )/DXX 
S(  1 , 7)  =  ( TK( 1 )+TK( 7)  ) /DYY 
S(2,3)=(TK(2)+TK(3) )/DXX 
S(2,8)=(TK(2)+TK(8) ) /DYY 
S ( 3  » 4 )  =  ( I K ( 3 ) +TK ( 4 )  J/OXX 
S(  3  »  9 )  =  ( TK ( 3 ) +T  K ( 9 )  )/DYY 
S(4»5)=(TK(4)+TK( 5) ) /DXX 
S(4,10)=(TK(4)+TK(10) )/DYY 
S(5»6)=(TK(5)+TK(6) )/OXX 
S(  5, 11  )  =  {  TK(  5)+TK(  ID)  /DYY 
S( 6, I2)=( TK( 6)+TK{ 12) ) /DYY 
S(7»8)=(TK(7)+TK(8) ) /DXX 
S  (  7  *  1  3  )  =  ( TK( 7 )  +  T  K ( 13) )/DYY 
S<8»9)=(TK(8)+TK{9) ) /DXX 
S(8f14)  =  <TK(  8)  +  TKM4)  )/DYY 
S(9, IO)=(TK( 9)+TK( 10) J/DXX 
S  (  9 , 1 5  )  =  (  rK(9)  +  TK(15) ) /DYY 
S(10»11)  =  (TK( 10  DTK (  11  )  ) /DXX 
S(  1 0 » 16)  =  ( TK( 10  DTK  I  16)  )/DYY 
S( 11»12)  =  (TK( 11 )  +TK  (  12)  )/DXX 
suit  17)  =  (TK(  11  )+TK(  17)  ) /DYY 
SI  12,  18)  =  (TK{  12  DTK  (  18)  ) /DYY 
S(  13,  14)  =  (TK( 13 )+TK<  14) )/DXX 
S( 13,21 )  =  ( TK( 13  )+TK( 21 )  )/DYY 
S(  14, 15)  =  CTK( 14)+TK(  15)  )/DXX 
S(14,22)  =  (TK( 14 ) +TK ( 22 )  )/DYY 
S(  15, 16)  =  I TK< 16 DTK (  16)  J/DXX 
S( 15,23)=(TK( 1 5  D  T  K  (  2  3  )  )  /DYY 
SI  16, 17)  =  I  TK  I  16  DTK  I  17)  ) /DXX 
SI  16,24)=!  TK  I  16  DTK!  24)  ) /DYY 
S(  17, 18 ) =1 TK ( 17) +TK (  18) ) /DXX 
SI  17,25 )  =  (TKC 17  DTK  (  25  )  )/DYY 
S(  18,19)=(TK(18DTK(  19)  )/DXX 
S(  18,26  )  =  l  TKU8  DTK!  26)  )/DYY 
SI  19, 20)  =  4  TK  I  19  DTK  120)  ) /DXX 
S( 19»27)=(TK{ 19  DTK  (  27  ) ) / DYY 
S(20,28)  =  (TK(20DTK(28) )/DYY 
S ( 21,22 )=(TK( 21 DTK  (22) )/DXX 

S  I  21, 29  )  =  (  TKI  21  DTK  I  29  )  )  /  I4.*DX*  (  SORT  (DXX+DYY)  )  ) 
S(22»23)  =  (TK(22)+TK(23)  )/DXX 
S(22,29)=(TK(22  DTK  (29)  )  /DYY 
S  I  23, 24)  =  I  TK  I  23  DTK  I  24)  )/DXX 
S(23,30)=(TK(23)+TK(30) )/DYY 
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SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST  MATRIX 


S(24,25)=(TK(24)+TK(25) )/DXX 
S ( 24 , 3 l ) = ( TK { 24 ) +TK ( 31 ) )/DYV 
S(25,26)=(TK(25  )+TK(26)  )/DXX 
S( 25,  32)  =  ( TK( 25  )+TK( 32)  )/DYY 
S( 26,27)=( TK( 26  )+TK( 27)  )/DXX 
S{ 26,33 )  =  ( TK ( 26 ) +  TK (33) )/DYY 
S(27,28)=(TK(27  )  +  TK ( 28 )  )/DXX 
S(27,34)=(TK(27)+TK(34) )/DYY 
S(28,35)=(TK{ 28 )  +TK  ( 35) J/UYY 
S(29,30)=(TK(29)+TK(30) )/DXX 

S(30,36)=(TK(30)+TK(36)  )/(4.*DX*SQRT(DXX+DYY) ) 
S(31»32)-(TK(31 ) +TK ( 32 ) )/DXX 
S(31,36)=(TK(31  )  +TK ( 36 )  )/DYY 
S(32,33)=(TK(32  )  +TK ( 33 ) )/DXX 
S ( 32,37)  =  ( TK ( 32  )+TK (37) )/DYY 
S(33,34)=(TK(33)+TK(34) )/DXX 
S( 33,38)  =  (TK(33  )+TK(38) )/DYY 
S( 34, 35)=( TK{ 34)+TK ( 35) )/DXX 
S(34,39)=(TK(34)+TK(39) )/DYY 
S( 3  5,40 )=( TK( 35  )+TK(40) )/DYY 
S(36»37)=DYSTAR*(TK( 36 ) +TK ( 37 ) )  / ( DY*D XX ) 

S( 37,38 )=0Y STAR* ( TK ( 37) +  TK( 38) )/(DY*DXX) 

S( 38,39)=DYSTAR* ( TK ( 38 )+TK(39) )/ (DY*DXX) 
S(39»40)=DYSTAR*(TK( 39 ) +TK ( 40 ) ) / ( DY  *DXX ) 

DO  3  J  =  1 , N 
DO  3  K=J,N 
S(K# J)=S( JtK) 

3  CONTINUE 
DO  4  J  =  1 , N 
VALUE  =  0  *  0 
DO  5  K= 1 , N 

5  VALUE=VALUE+S(J ,K) 

4  S( J,J)=-VALUE 
RETURN 

END 
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SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST 


$  I BFTC  TRANS 

TRANS  MODIFIES  THE  ELEMENTS  OF  THE  8.C  VECTOR  AND  OF  THE 
DIAGONAL  MATRIX. 

SUBROUTINE  TRANS(DIAGtCl,DX*DY,A21,A29»A30tA36,A37t 
1 A38  *  A39 »  A40 ) 

REAL  D I  AG ( 40 ) ,C1(40) 

DI AG( 21 ) =DI AG (2  1  ) *A2  1  / ( DX*DY ) 

Cl ( 21 )=C1(21 )*A21/(DX*DY) 

D I  A G ( 29)=0IAG(29)*A29/(DX*DY) 

C  1  ( 29 ) =C 1 ( 2  9  )  *  A  2  9  /  ( D  X  *■  D  Y  ) 

DIAG(30)=0IAG(30)*A30/(DX*DY) 

Cl ( 3  0 ) =  C 1 ( 30)*A30/(DX*DY) 

CIAG( 36)=DIAG(36)*A36/(DX*DY) 

C  1  { 36)=CI( 36 ) *A  36/ ( DX»DY ) 

DIAG(37)=DIAG(37)#A37/(DX*DY) 

C I ( 37 ) =C 1 ( 37 ) #A  37/ { DX*DY ) 

CIAG(38)=0IAG(38)*A38/(DX*DY) 

CI( 38)=C1( 38 ) * A  38/ ( DX*DY) 

DIAG(39)=DIAG(39)*A39/(DX*DY) 

Cl  ( 39)=Cl ( 39 ) *A  39/ ( DX*DY ) 

01 AG(40)=Dt AG(40)*A40/(DX*DY) 

Cl  ( 40)=Cl(40)*A40/( D  X  *  D  Y  ) 

RETURN 
END 
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SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST 


$  I BF  TC  DERIVE 

SUBROUTINE  DER I VE ( D I  AG , D I N V , S , C I , PZ , N ) 

C 

DERIVE  PERFORMS  THE  NECESSARY  MULTIPLICATIONS  WITH  D-HALF 
AND  D-MINUS  HALF. 

REAL  DIAG(40),DINV(4C),S(40,40),C1(40),PZ{40) 

DO  1  J  =  1,N 

DIAG(J)  =  SQRT(DIAG(J)  ) 

1  DINVt J)=1./DIAG( J) 

CO  2  J=L ,N 
PZ( J)=DIAG(J)*PZ(J) 

C1(J)=DINV(J)*CI(J) 

CO  2  K=  J,N 

S(J»K)=S(J»K)*DINV(J)*DINV(K) 

2  S(K»J)=S{JtK) 

RETURN 
END 
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FORTRAN  SOURCE  LIST 

SOURCE  STATEMENT 
$  I  BFTC  BALANS 

SUBROUTINE  BALANS IN, NT ,P, TIME1 , PROD , COMP , ARE A , WORK , 

1PZ  ,  PZSAVE ) 

BALANS  ESTIMATES  THE  PRODUCTION  OF  OIL  BY  TWO  METHODS. 

REAL  P( 25,40) , TIME  1 ( 25)  , AREA (40) , WORK ( 40 ) , PZ { 40 ) , PZSAVE (40) 
DO  I  J  = 1 , N  r 

1  WGRK( J )=PR0D*TIME1 ( J ) 

DO  2  J= 1 » NT 
PZ( J)=0.0 
CO  2  K=  L  ,  N 

2  PZ( J)=PZ( J)+ARE A ( K ) *  l  PZSAVE (K)-P(J,K)  ) 

RETURN 
END 
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i.rogram  is  being  entered  into  storage. 


initial 

1500.00 
1500.00  1500.00 
1500.00  1500.00 
1500.00  1500.00 
1500.00  1500.00 


PRESSURES, PSI 

1500.00 
1500.00  1500.00 
1500.00  1500.00 
1500.00  1500.00 
1500.00  1500.00 
1500.00  1500.00 


1500.00  1500.00 
1500.00  1500.00 
1500.00  1500.00 
1500.00  1500.00 
1500.00  1500.00 
1500.00  1500.00 
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T I ME=  0.0 
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1500.01  1500.00  1500.00 
1500.00  1500.01  1500.00 
1500.01  1500.01  1500.00 
1500.01  1500.01  1500.01 
1500.00  1500.01  1500.01 
PRODUCTION, STB 
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DAYS 

1500.00  1499.99  1500.00 
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1500.00  15C0.00  1500.00 
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MATERIAL  BALANCE 
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PRODUCTION, STB 
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DAYS 
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PRODUCTION, STB 
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1222*33 

1222*29 

1222.24 

1222*36 


1082.85 

1082.81 

1082.75 

1082.88 


943.37 

943.32 

943.27 

943.39 


803.86 

803.82 

803.77 

803.89 


TIME  =  80.0 

1220.32 

1222.08  1221.84  1220.12 
1222.07  1221.57  1220.32 
1221.99  1221.84  1221.19 
1221.28  1222.02  1221.91 
1222.14  1222.27  1222.28 
PRODUCTION, STB 
0. 32C0000E  05 


DAYS 
1219.82 
1219.43 
1218. 19 
1220.41 
1221.58 
1222.  16 


1219.74  1219.76 
1219.58  1219.60 
1219.30  1219.24 
1220.08  1218.26 
1221.43 
1222.07 
MATERIAL  BALANCE 
0.3  1961 33E  05 


1219.81 

1219.66 

1219.45 

1219.26 


T  IME=  120.0 
1080.83 

1082.60  1082.35  1080.64 
1082.59  1082.08  1080.84 
1082.50  1082.36  1081.71 
1081.80  1082.53  1082.43 
1082.65  1082.79  1082.80 
PRODUCTION, STB 
0.4800000E  05 
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1080.34  1080.26  1080.27 
1079.94  1080.09  1080.12 
1078.71  1079.81  1079.76 
1080.92  1080.59  1078.77 

1082.10  1081.94 
1082.68  1082.59 

MATERIAL  BALANCE 
0.4  79460  IE  05 


1080.33 
1 08C .  18 
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PRODUCTION, STB 
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PRODUCTION, STB 
0 • 800 COOOE  05 
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799.72  8C0.82  800.77 

801.94  801.61  799.79 
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803.69  803.60 

MATERIAL  BALANCE 
0.7991753E  05 


801 . 34 
801 . 19 
800.98 
800.78 
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664. 

664. 

664. 

664. 


524. 

524. 

524. 

524. 


385. 

385. 

385. 

385. 


T  I  ME  = 

240.0 

DAYS 

662.30 

661.81 

661.73 

661 . 75 

661.80 

664.07 

663.82 

662.11 

661.41 

661.56 

661 . 59 

661.65 

32 

664.06 

663.55 

662.31 

660. 18 

661.28 

661.23 

661. 44 

28 

663.98 

663.83 

66  3.  18 

662. 39 

662.07 

660.24 

661.24 

23 

663.27 

664.01 

663.90 

663.57 

663.41 

35 

664.12 

664.26 

664.27 

664.15 

664.06 

PRODUCTION, STB 

MATERIAL  8A LANCE 

0 • 9600000E  05  0.9590870E  05 


TIME 

=  280.0 

DAYS 

522.76 

522.27 

522.19 

522.21 

522.26 

524.53 

524.28 

522.57 

521.87 

522.02 

522.05 

522.11 

78 

524.52 

524.01 

52  2.77 

520.64 

521.74 

521.69 

521.90 

74 

524 • 44 

524.29 

523.64 

522.85 

522.53 

520. 70 

521.70 

69 

523.73 

524.47 

524.36 

524. 03 

523.87 

81 

524.58 

524.72 

524.73 

524.61 

524.52 

PRODUCTION, STB  MATERIAL  BALANCE 

0.1 120000E  06  0 . 1 l 1 8999E  06 


T  IME  = 

320.0 

DAYS 

383.19 

382.70 

382.62 

382.64 

382.69 

384.96 

384.71 

383.00 

382.30 

382.45 

382.48 

382.54 

21 

384.95 

384.44 

383.20 

381.07 

382.17 

382.  12 

382.33 

17 

384.87 

384.72 

384.07 

383.28 

382.96 

381. 13 

382.13 

12 

384.16 

384.90 

384.79 

384.46 

384.30 

24 

385.01 

385.  15 

385.  16 

385.04 

384.95 

PRODUCT 

ION, STB 

MATERIAL  BALANCE 

0 • 128C000E  06  0.1278943E  06 
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APPENDIX  F. 

Diffusivity  of  Copper  Sulfate  in  Water. 


The  complete  program  consists  of  three  individual 


programs? 

1.  Program  IH-15,  which  processes  the  data  and  prints 
out  the  values  of  z,  (i  =  1  to  5)  for  the  various 
profiles, 

2.  Program  IH-20  LOGFIT,  which  logarithmically  fits 
the  data  of  versus  t  to  a  straight  line  using 
least  squares,  and  determines  the  diffusivity  from 
the  slope  of  this  straight  line, 

3.  Program  IH-25  CONVENTIONAL,  which  uses  the  follow¬ 
ing  analytical  solution  to  estimate  the  diffusivity 
of  copper  sulfate  from  data  employed  by  IH-15? 


p„d,es 


du 

Bt 


a 


a2-a 

Sx2 


with  I.C  t  =  o, 
and  B,C  x  =  0 , 


u  =  f  ( x) 


u  ~  V, 


Analytical  solution  (  7 )  for  the  above  p,d,e  is 


->  vj^ni  a&uU  3to  ;  rs*  *»  al<  .art'. 
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cos 


(2n+l)  tt  x1 

2  1 


dx' 


For  each  assumed  value  of  x,  the  quantity 
*  =  Y  (Ce*pt  1  “  Canalytical)  2  is  determined.  A  plot  of 

E  versus  a  gives  the  best  value . 
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SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST 


SIBFTC  DARSI  NGDECK 


SOLUTION  TO  THE  INVERSE  PROBLEM-HOMOGENEOUS  MEDIUM 

ESTIMATION  OF  MOLECULAR  DIFFUSIVITY  OF  COPPER  SULFATE 

INPUT  DATA 

NT= NUMBER  OF  CONCENTRATION  PROFILES 
N=NUMBER  OF  GRID  POINTS 
GRIDX=PUSITIONS  OF  THE  GRID  POINTS 
S=COEFF I C I  ENT  MATR IX ( DIAGONALS  ONLY) 

TIME3=ACTUAL  ELAPSED  TIMES  OF  THE  PROFILES 
C3=BOUNDARY  CONDITION  VECTOR 

NOTE-THE  I.C  VECTOR  IS  FED  IN  AS  APROF  I L  E .  FROM  THIS, I. C. 
VECTOR  IS  DETERMINED  INTERNALLY 

NA=TOTAL  NUMBER  OF  POINTS  ON  ANY  FRAME-X+Y 
NZ=THE  POINTS  ON  THE  FRAME 

OT=PO I  NTS  REFERRING  TO  THE  ORIENTATION  OF  THE  FRAME 
(EACH  PROFILE  HAS  ONE  SET  OF  CARDS  CONTAINING  NA,NZ,OT) 

REAL  S( 16,16) ,  R  (  1 6  )  »  V  (  16, L6),A(16),B(  L6) » W  1  ( 16) ,W2( 16) 
REAL  X(75 ) , Y( 75 ) ,XX( 75 ) ,YY( 75) ,AX( 3 ) , AY( 3) ,W( 16, 16) 

REAL  C(25»  10),CZ(  10) fC3(10) vTIME 3(25)  , Z ( 2  5 , 1 0 )  , GR I DX ( 10  ) 
REAL  WOR K ( 10) ,XNORM( 10) , WEIGHT (10) 

REAL  DX, W I DTH, BOUND, F ACTOR, MAGNF, ALPHA, RM, TBOUND, TINC 
INTEGER  NZ( 150) ,0T(6) , NA,COUNTR, NT, N,N1, MAX N,M,J,K, LINES 


1  FORMAT ( 1 X , I  A ) 

2  FORMAT ( 10X, 1415 

3  FORMAT ( 1CX , 6  I  5 ) 

56  FORMAT ( IX, 10F5. 

57  FORMAT ( IX, 10F5. 

201  FORMAT ( 1H  , 15X, 
1 17H  SULFATE  IN 

202  FORMAT ( 1H  ,20X, 

203  FORMAT ( 1 H  ,10X, 
15X,  18H  CONVERSI 

204  FORMAT ( 1H  ,  15X, 
118HG.M0LS/L  IT./ 

205  FORMAT ( 1H  ,12X, 

206  FORMAT ( 1H  , 30X, 

220  FORMAT ( 1 H 2  ) 

221  FORMAT ( 1H  10X,8 

222  FORMAT (  1 H 

223  FORMAT ( 1H 

227  FORMAT (  1H 

228  FORMAT ( 1H 

229  FORMAT (  1H 

230  FORMAT (  1H 

231  FORMAT (  1H 


1 

l) 

1) 

32H  MOLECULAR  DIFFUSIVITY  OF  COPPER, 
WATER) 

34H  DATA  FROM  DR.R.N.O*BRI EN*S  EXPTS.) 
11H  CELL  WIDTH, 5X,18H  CENTERLINE  CONCN. , 
ON  FACTOR) 

3HCM. , 12X, 12H  G.MOLS/L I T. , 8X , 

MICRON) 

F6.3,12X,F10.7,14X,E10.4) 

6H  TIME-=,F6.1»8H  SECONDS) 

H  • • CONTD ) 


t//> 

t/> 

,  29X, 
,  33X , 
,  30X, 
,  32X, 
,  10X, 


22H  ORIENTATION 
2 H  X,8X,2H  Y ) 

F8 • 1  *  3X  *  F8 • 1  ) 

7H  SL0PE=,F6.2) 
26HA  FIVE-POINT 


OF  FRAMES) 


GRID  IS  USED. , 
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SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST  DARS I 


130HTHE  GRID  POINTS  ARE  LOCATED  AT  ) 

232  FORMAT ( 1H  ,10X,5F11.6) 

233  FORMAT ( 1H  ,20X,25H  INITIAL  CONDITION  VECTOR) 

23 A  FORMAT ( 1H  ,  10X,  5F12.7) 

235  FORMAT ( 1H  ,20X,26H  BOUNDARY  CONDITION  VECTOR) 

237  FORMAT { 1H  ,20X,9H  RAW  DATA,5X, 

132H  CONVERTED  TO  THE  RELEVENT  UNITS) 

238  FORMAT (  1H  ,20X,2H  X,5X,2H  Y,8X,12H  DI S T ANCE , CM , 5 X , 

118HCONCN., G.MOLS/LI T. ) 

239  FORMAT ( 1H  , i 5X, F8 . L , 2X , F8 . 1 , 4X , F 1 1 . 6 , 8X  ,  F 1 1 . 6  ) 

240  FORMAT ( IH  ,30X,19H  COEFFICIENT  MATRIX) 

241  FORMAT ! 1H  ,10X,10F6.2) 

242  FORMAT ( 1H  ,  35X,  12H  EIGENVALUES) 

243  FORMAT ( 1H  ,35X,13H  EIGENVECTORS) 

244  FORMAT! 1H  ,20X,35H  CHECK  OF  SIMILARITY  TRANSFORMATION) 

245  FORMAT ( 1H  , 8X, 8 HT IME , SEC, 5X , 

1 57H  INTERPOLATED  VALUES  OF  CONCN.  AT  GRID  PO I  NTS , G . MOL S/ L I T . ) 

246  FORMAT ( 1H  , 8 X , F 6. 1 , 2 X , 5F 1 2. 7 ) 

247  FORMATdH  ,30X,18H  MODIFIED  VARIABLE) 

248  FORMAT { IH  , 10X,  10H  T  IME , SECS , 5X , 2H  1,10X,2H  2,  9X,2H  3,  9X, 
12H  4,9X,2H  5) 

250  FORMAT ( IH  ,30X,20H  VALUES  FOR  PLOTTING) 

251  FORMAT ( IH  , 1 2X, F6 . 1 , 2 X , 5F 1 1 • 6 ) 

252  FORMAT! IH  ,15X,25H  NORMALISED  INNER  PRODUCT, 

136H  OF  I.C. VECTOR  WITH  EACH  EIGENVECTOR) 

253  FORMAT ! IH  ,20X,5Fli.6) 

1C00  FORMAT! IX, 214) 

1001  FORMAT ( IX ,  5F12.8) 

1002  FORMAT ( 1X,5F14. 8) 

READ(5, 1C00)  NT ,N 

READ! 5, 1C01 )  ( GR I DX ( J ) , J= 1 , N ) 

DX= ABS ( GR I DX ( 3  >  —  GR I DX ( 2 ) ) 

DO  50  J=1,N 
DO  50  K=  1 ,  N 
50  S!J,K)=0.0 

READ!5,56)  ! S ( J , J ) , J= 1 , N ) 

N 1  =  N- 1 

READ (5,56)  ( S ( J , J+ 1 ) »  J  =  1 »  N1 ) 

DO  52  J= 1 , N 1 
52  S( J+1,J)=S! J,J+1) 

RE AD  t  5 , 57  )  ( T IM E3 ! J ) , J  =  1 , NT ) 

MAXN=16 

M=-N 

CALL  EIG1(N,MAXN,M»S,R»V»A,B»W1*W2) 

CALL  CHECK! V,R,N,W) 

RE AD! 5, 10 02)  ( C 3 ! J ) , J= 1 » N ) 

READ (5,1001)  WIDTH, CONCN, FACTOR 
NE=  1 

4  READ  (5,1)  NA 

READ (5,2)  ( NZ ( J ) , J- 1 ,NA ) 

READ ( 5,3)  ( 0  T ( J ) , J= 1 ,6 ) 

CALL  DATA(NA,NZ,X,Y ,NP) 

DO  10  J= 1 , 3 
AX! J)=FLOAT(OT( 2*J) ) 

DO  11  J=  1 , 3 
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SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST  DARSI 


11  AY(J)=FLOAT(OT(2*J-i)) 

CALL  LESQF T ( AX, AY , SLOPE ) 

DO  8  J  =  1  *  NP 
XX( J)=X( J) 

8  YY ( J ) = Y ( J  ) 

CALL  CONVT2(NP,X,Y, SLOPE, WIDTH, FACT OR) 

I F ( NE. EQ  •  1  )  GO  TO  21 
GO  TO  28 

21  DO  215  K A  =  1  ,  N 

CALL  LINEAR! NP,GRIDX,X,Y,KA,RR) 

CZ ( K  A ) =RR 
C ( NE , K A ) =RR 
215  CONTINUE 
VALUE=0 • 0 
DO  131  K=1,N 
VALUE=VALUE+CZ(  K )**2 
WEI  GHT ( K )=0.0 
DO  131  J= 1 , N 

131  WEIGHT (K )=WE  IGHT (K) +CZ ( J)*V( J,K) 

DO  132  J  =  1 ,  N 

132  WEIGHT! J )  =  WE  I GH T  (  J  )  /  SQR  T  ( VALUE) 

WRITE! 6,220) 

WRITE(6,201) 

WRITE(6,202) 

WRITE! 6, 222) 

WRITE(6,203) 

WR I TE ! 6 , 204 ) 

WR I TE ( 6, 205 )  Wl DTH, CONCN, FACTOR 
WRITE! 6, 223) 

WRITE!6,231) 

WRITE (6, 232)  ! GR I DX ! J ) , J= 1 , N ) 
WRITE!6,222) 

WRITE(6,233) 

WR I TE ( 6 , 2  32  )  (CZ!  J)  ,  J=1,N) 

WRITE(6,222) 

WR I TE  t  6, 235 ) 

WR I TE!  6,  232  )  (C3(J) ,J=1,N) 

WR I TE ( 6, 220 ) 

L I NES-8 

CALL  LINCT (LINES, 3, 3) 

WRITE(6,222) 

WR I TE ( 6 , 206 )  TI ME  3 ( NE ) 

CALL  LINCT(LINES,2,3) 

WRITE! 6, 227) 

WR I TE! 6, 228 ) 

DO  321  J= 1 , 3 

CALL  L INCT(L INES,  1,2 ) 

321  WRITE(6,229)  AX(J),AY!J) 

CALL  LINCT(LINES,1,3) 

WRITE(6,230)  SLOPE 
CALL  L INCT ( L  INE  S , 2, 3 ) 

WRITE!6,222) 

CALL  L INCT (L INES, 2, 3 ) 

WR I TE ( 6, 237 ) 

CALL  L INCT(LINES, 1» 3) 
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WRITE(6»238) 

DO  322  J  =  1 , NP 

CALL  L INCT (LINES,  1,  1  ) 

322  WR I TE ( 6*  239 )  XX ( J  )  , YV ( J ) f X ( J ) , y ( J ) 
GO  TO  30 

28  DO  210  KA=1,N 

CALL  LINEAR(NP,GRIDX,X,Y,KA,RR ) 

C  t  NE , K A ) =RR 
210  CONTINUE 

CALL  L I NCT ( L I NE  S  »  3, 3 ) 

WRITE(6,222) 

WR I TE ( 6t  206  )  TIME3(N£) 

CALL  LINCT (LINES»2,3) 

WRITE(6f 227) 

WRITE( 6,228) 

DO  323  J=  1 , 3 

CALL  L INCT ( L  INE  S  »  1,2) 

323  WR I TE  t  6 »  229 )  AX(J),AY(J) 

CALL  L INCT { L  INES* 1»  3 ) 

WR I TE  t  6 , 230 )  SLOPE 
CALL  LINCTtLINES, 2,3) 

WR I TE ( 6, 222 ) 

CALL  L INCT (  L INE  S  »  2, 3  ) 

WR I TE ( 6  »  237 ) 

CALL  LINCTtLINES,  1, 3) 

WR I TE ( 6f  238 ) 

DO  324  J=1,NP 

CALL  LINCTtLINES, 1,  1) 

324  WR  I  TE ( 6  »  2  39  )  XX ( J ) , Y Y { J ) , X ( J ) , V ( J ) 
30  NE=NE+ 1 

IFtNE.LE.NT  )  GO  TO  4 

CALL  MODIFY! WORK, V,C 3, CZ,Z,C,N,NT) 

WR I TE ( 6 , 220 ) 

L I NES=8 

CALL  LINCTtLINES,  l, 3) 

WR I TE ( 6, 240 ) 

DO  345  J= 1 , N 

CALL  LINCTtLINES, 1,3) 

345  WR I TE  t  6, 2  32 )  tS(J,K),K  =  l,N) 

CALL  LINCTtLINES, 3, 3) 

WR I TE ( 6, 222 ) 

CALL  LINCTtLINES, 1,3) 

WRITEt 6,242) 

CALL  LINCTtLINES, 1,3) 

WR I TE  t  6 , 232  )  (R(J),J  =  1*N) 

CALL  LINCTtLINES, 3, 3) 

WR  ITE  t  6, 222 ) 

CALL  LINCTtL  INES, 1, 3 ) 

WR I TE<  6»  243 ) 

DO  346  K=1,N 

CALL  LINCTtLINES, 3, 3) 

WR I TE ( 6, 232  )  ( V ( J , K ) *J  =  1,N) 

346  WRITEt6,223) 

CALL  LINCTtLINES, 4, 3) 

WRITE(6,222) 
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WRITE(6,244) 

DO  347  J  =  1 ,  N 

CALL  L INCT ( L INE  S»  3, 3 ) 

WRITE(6,232)  (  W  (  J  ,  K  ) ,  K= 1 , N ) 

347  WRI TE ( 6 , 223 ) 

WR I TE ( 6 , 2  20 ) 

WRITE! 6, 245) 

DO  348  J= 1 , NT 

348  WR I TE ( 6 »  246 )  TI M E3 ( J )  ,  ( C ( J , K ) , K= I , N ) 
WRITE(6*223) 

WRITE! 6, 247) 

WRITE!6,223) 

WR I TE ( 6 »  248 ) 

DO  349  J  =  1 ,  N  T 

349  WRITE(6,25I)  TI ME 3 ( J ) , ( Z ! J , K ) f K  = I , 5 ) 
CALL  PLOT!C,R,Z ,C3,CZ,N,NT) 

WRI TE ! 6»  220 ) 

WRITE(6*250) 

WR I TE ( 6»  223 ) 

WRITE(6»248) 

DO  351  J= 1 »  NT 

351  WRITE(6t251)  T I ME3 ( J  )  , ! C ( J , K ) , K= 1 , 5 ) 
WRITE! 6,223) 

WR I TE ! 6 , 252 ) 

WRITE! 6, 253)  ! WEIGHT! J ),J=1,5) 

END 
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SIBFTC  CATA 

SUBROUTINE  DATA ( NA , NZ , X , Y , NP  ) 

DATA  CONVERTS  THE  INTEGER  INPUT  TU  FLOATING  POINTS. 

REAL  X ( 75 ) »  Y ( 75 ) 

INTEGER  NZ ( 150) 

NP=NA/2 
DO  6  J  =  I  *  NP 

5  X(J)  =  FL0AT(NZ(2*J)  ) 

6  Y(J)=FLOAT ( NZ ( 2  * J— i )  ) 

RETURN 
END 
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SUBROUTINE  CONV T2 ( N P , X , Y , SLOPE , W I DTH , FACTOR ) 

CONVT2  CONVERTS  THE  RAW  DATA  INTO  THE  RELEVENT  UNITS. 

REAL  X ( 75 ) »  Y ( 75  ) 

S1=ATAN( SLOPE) 

S2=1.5707963-S1 
S3-S IN ( S 1 ) 

S4=SIN( S2)/COS( S2 ) 

DO  16  J= l f  NP 

XX= ( X ( J )-Y ( J ) /SLOPE ) *S 3 

YY=(Y( J)+X( J)*S4)*S3 

X  (  J  )  =XX 

16  Y ( J ) =Y Y 

XI  =  X(1  ) 

XN=X ( NP  ) 

R AT  1 0=W I DTH* I  CO 00./ ( Xl-XN) 

DO  17  J= 1 »  NP 

17  X(J)=WIDTH*(X(J )-Xl )  / ( XN-X1 ) 

N 1=NP- 1 

V  ALUE  =  0. 0 
DO  18  J= 1  *  N 1 

18  VALUE=VALUE+0.5*( Y( J)+Y(J+1) ) * { X < J+ 1 ) -X < J ) ) 
YAVE=VALUE/WIDTH 

DO  19  J= 1 »  NP 

19  YIJ)-0.05+(Y{J)-YAVE)*  FACTOR  *RATIO 
RETURN 

END 
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$  I  BFTC  LINCT 

SUBROUTINE  L I NC T ( L I NES , N , REFER ) 

LINCT  KEEPS  TRACK  OF  NUMBER  OF  LINES  PRINTED  AND  SKIPS  TO  A 
NEW  PAGE • TH I S  PROGRAM  IS  CAPABLE  OF  GIVING  THREE  DIFFERENT 
HEADINGS  DEPENDING  ON  THE  VALUE  OF  REFER* 

INTEGER  LINES, N, REFER 

2  FORMAT!  IH2,  IOX, 8H  **CONTD) 

3  FORMATtIH  ,20X,2H  X,5X,2H  Y,8X,L2H  DI STANCE , CM , bX , 
1I8HC0NCN. ,G.MOL S/LI T. ) 

A  FORMAT ( IH  ,33X,2H  X,8X,2H  Y) 

LINES=LINES+N 
IF(LINES.GT.6I)  GO  TO  I 
RETURN 
1  WR  I T  E ( 6 , 2 ) 

I  F ( REFER  *GT • 2 )  GO  TO  5 
IF ( REFER.LT  *2 )  GO  TO  6 
WR I TE ( 6, A ) 

L I NES=  10 
RETURN 

5  L I NE S=9 
RETURN 

6  WRITE(6,3) 

L I NE  S=  10 
RETURN 
END 
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kOGR AM  IS  BEING  ENTERED  INTO  STORAGE. 


MOLECULAR 

DATA 


DIFFUSIVITY  OF  COPPER  SULFATE  IN  WATER 
FROM  DR.R.N.O*BR IEN*S  EXPTS. 


CELL  WIDTH 
CM. 
0.313 


CENTERLINE  CONCN. 
G.MOLS/LIT. 
0.0493829 


CONVERSION  FACTOR 
G.MOLS/LIT. /MICRON 
0.227  £-04 


A  FIVE-POINT 
0.014227 


GRID  IS  USED. THE  GRID  POINTS  ARE 
0.042682  0.071136  0.099591 


LOCATED  AT 
0.128045 


INITIAL  CONDITION  VECTOR 

0.094676  0.066277  0.056739  0.052795  0.051386 


BOUNDARY  CONDITION  VECTOR 

0.000000  0.000000  0.000000  0.000000  0.049383 
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FORTRAN  SOURCE  LIST 


20  LOGFIT 

SOURCE  STATEMENT 

$  IBFTC  DARSI  NODECK 
C 

c 

c  SOLUTION  TO  THE  INVERSE  PROBLEM-HOMOGENEOUS  MEDIUM 

C  SEMI-LOGARITHMIC  LEAST  SQUARE  FIT  OF  RESULTS 

C 

C  INPUT  DATA 

C 

C  NZ=NUMBER  OF  SETS  OF  DATA 
C  NC=NUMBER  OF  POINTS  IN  A  DATA  SET 

C  M=COLUMN  NUMBER 

C  DX=GR I D  SPACING 

C  EIGVAL=EIGENVALUE 

C 

1  FORMAT { IX, 14) 

2  FORMAT ( IX, 2  I 4,2F 12*  8 ) 

3  FORMAT ( IX , 7F 10.  7 ) 

220  FORMAT ( 1 H 2 ) 

221  FORMAT ( 1H  ,/ ) 

222  FORMAT { 1H  , 15X, 29HSEM I-LGGAR I THMIC  LEAST  SQUARE, 

115H  FIT  OF  RESULTS) 

223  FORMAT ( 1 H  ,20X,15H  COLUMN  NUMBER=,I4) 

224  FORMAT (  1H  , 10X,  10H  T  IME , SEC S , 2X , 1 8H  EXPTL. VALUES  OF  Z, 

1 2X , 1 1H  LOGARITHMS, 2X, 18H  Z-VALUES  FROM  FIT) 

225  FURMAT ( 1H  , 1 2X , F8. 3 , 4X , FI 2. 8 , 6X , F 10 .6 , 4X , F 12 . 8 ) 

226  FORMAT ( 1 H  ,10X,13H  GRID  SPAC ING, 2X, 1 1H  E I GENVALUE , 5X , 

16H  SLOPE, 5X,10H  INTERCEPT, 2X, 1 2H  DIFFUSIVITY) 

227  FORMAT ( 1H  , 15X, 3HCM • ,48X,9H SQ.CM/SEC) 

228  FORMAT ( 1H  , 10X, F  1 1. 7 , 4X , FI  1. 6 , 2X , F 1 1.6 , 3X , F 10 . 6, 2X , E 12 . 6 ) 
REAL  AX< 15) ,AY( 15 ) , LOGY < 15 ) , YF IT ( 15 ) 

RE AD ( 5 ,  1 )  NZ 
NH=  1 

115  READ ( 5,2)  NC , M, CX ,E I G VAL 
RE AD ( 5 ♦ 3 )  (AX(J),J=1,NC) 

RE AD ( 5 , 3 )  ( AY ( J  )  »  J=  1 » NC ) 

DO  116  J  =  1 , NC 

116  LOGY ( J ) = ALOG ( AY ( J ) ) 

SUM1=0.0 

DO  100  J= 1 »  NC 

100  SUM1=SUM1+AX( J) 

SUM2=0 • 0 

DO  101  J= 1 , NC 

101  SUM2  =  SUM2  +  AX(J)  **2. 

SUM3=0.0 

DO  102  J  =  1 ,  NC 

102  SUM3=SUM3+LOGY( J ) 

SUM4=0  •  0 

D0  103  J  =  1 , NC 

103  SUM4=SUM4+AX ( J) *LOGY ( J ) 

AN  =  NC 

SL0PE=(SUM3*SUMl-SUM4*AN)/(SUMi**2-AN*SUv2) 

CEPT= ( SUM3*SUM2— SUM4*SUM1 ) / ( AN* SUM2-SUM1 * *2 ) 

DO  117  J= 1 »  NC 

YFIT(J)=EXP(SLOPE*AX(J)+CEPT) 

WR I TE ( 6 , 220 ) 
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lOGRAM  IS  BEING  ENTERED  INTO  STORAGE. 
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3GRAM  IS  BEING  ENTERED  INTO  STORAGE. 

MOLECULAR  DIFFUSIVITY  OF  COPPER  SULFATE  IN  WATER 
DATA  FROM  DR . R . N. 0*BR I EN* S  EXPTS. 
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SEMI-LOGARITHMIC  LEAST  SQUARE  FIT  OF  RESULTS 


COLUMN  NUMBER=  5 


TIME, SECS 

EXPTL. VALUES  OF  Z 

LOGARITHMS 

Z-VALUES  FROM  FIT 
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GRID  SPACING 
CM. 
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-25  CONVENTIONAL 

SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST 


) 


IBFTC  DARSI 


NODECK 


LEAST  SQUARES  ANALYSIS  OF  DIFFUSIVITy  DATA 


INPUT  DATA 


NP=NUMBER  OF 
NS=NUMBER  OF 
ND=NUMBER  OF 
XAXIS^X-AXIS 
YAXI S  =  Y— AX  I  S 
W I DTH=CELL  WIDTH 
P I - T H E  CONSTANT  PI 
BC=THE  CONSTANT  CONCN. 
DI FF=ASSUMED  VALUES  OF 


I.C  CURVE 


POINTS  ON  THE 
SETS  OF  DATA 
VALUES  OF  DIFFUSIVITY 

THE  I.C  CURVE 
THE  I.C  CURVE 


AT  THE  BOUNDARY 
DIFFUSIVITY 


VALUES 

VALUES 


ON 

ON 


1 

2 

3 

4 

220 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 


REAL  Y  AX  I S ( 75 ) , 
REAL  T ( 50 ) ,POTE 
FORMAT ( IX, 314 ) 
FORMAT ( 1X,F9.6, 
FORMAT ( IX, 3F14. 
FORMAT ( 1X,5FI4. 
FORMAT ( 1H2  ) 
FORMAT ( 1H  ,/) 
FORMAT ( 1 H  , 15X, 
1/25X*22H  CONVEN 
FORMAT (  1H 
FORMAT ( 1H 
FORMAT { 1H 
FORMAT ( 1H 
FORMAT  <  1H 


t  30X, 
*  2 OX, 
» 20X, 
» 30X, 
»20X, 
1 2X  » 1 8H  CONCN. ,G 


,22X, 
,  20X , 
,  2  3X » 
NP ,  NS 
(  X  AX  I 
(  YAXI 
WIDTH 
(  DIFF 
NP 


FORMAT (  IH 
FORMAT (  1H 
FORMAT (  IH 
READ ( 5,1) 

READ (5,2) 

READ ( 5 , 2 ) 

RE AD ( 5 , 3 ) 

RE AD ( 5 , 4 ) 

CO  17  J=1 
17  XAX I S ( J ) =XAX I S ( 
DO  20  J  =  1  *  30 
CALL  TREPEZ ( YAX 
A  (  J  )  =—  A  {  J  ) 

20  CONTINUE 

CALL  TREPEZ ( YAX 
A4=-A4 

DO  21  J= 1 »  N  S 

21  RE AD ( 5 , 3 )  X(J), 
WRITE(6,220) 
WRITE! 6,224) 

WR I TE ( 6, 223 ) 
WRITE(6,225) 


XAXIS(75),A(30) , D I FF ( 25 ) , X ( 50 ) »EXPVAL(50) 
NT ( 50 ) , VARIANI25) 

7F10.6) 

8) 

8) 


39H  DIFFUSIVITY  OF  COPPER  SULFATE  IN  WATER, 
TIONAL  APPROACH) 

19H  INITIAL  CONDITIONS) 

13H  DISTANCE, CM. ,5X, lfiH  CONCN. ,G. MOLS/L I T ) 
F13.8,7X,F13.8) 

18H  EXPERIMENTAL  DATA) 

10H  TIME, SECS, 2X, 13H  D 1  STANCE , CM. , 

.MOLS/L IT) 

F6.1,5X,F11.8,5X,F13.8) 

20H  D- ASSUMED, SQ. CM/SEC, 5X,  9H  VARIANCE) 

F 1 2. 8 , 10X , F 10. 7  ) 

,  ND 

S  (  J ) , J=1,NP) 

S  C  J ) , J  =  1,NP) 

, P I , BC 
{ J ) , J  =  1 , ND ) 

J)/10.0 

IS,XAXIS,WIDTH,PI,J»NP,A(J) ) 
IS,XAXIS,WIDTH,PI ,0,NP,A4) 
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CONVENTIONAL 

SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST  DAKS  I 


WR I TE ! 6, 226 ) 

DO  18  J= 1 , NP 

18  WRITE(6,227)  XA X  I S ( J ) , V AX  I S  (  J  ) 

WRITE!6, 220) 

WRITE! 6, 228) 

WRITE! 6,229) 

DO  19  J  =  1 , NS 

19  WR I TE ( 6, 230  )  T ! J  )  , X ( J ) , EXP VAL  (  J ) 

DO  28  J  =  1 , ND 
VAR  IAN! J )=0.0 
DO  26  K= 1 »  NS 

A1=EXP  <-DIFF ( J) *! PI **2 ) *T l K ) /! 4. * ! WIDTH** 2 ) ) ) 

A2=COS ( P I *X ! K ) / (2.* WIDTH) ) 

A3=-2.*WIDTH*BC/PI 
AX=A1*A2*( A3+A4 ) 

A Y=— 1.0 
DO  23  N= 1 , 30 
A Y=- AY 
AN  =  N 

A1  =  EXP (-D  IFF ( J ) * ( (2. «AN+1. ) **2 ) * ! P I **2 ) *T ( K ) / ! 4. * ! W I DTH**2 ) ) ) 
A2=C0S ( ( 2 • *  AN  +  1  •  )*PI*X(K)/(2.*WIDTH) ) 

A3=  2.*WIDTH*AY*BC/ ( (2.* AN+1. ) *PI ) 

AX=AX+A1*A2*( A3+A(N) ) 

IF! A1.LE.1.0E-30)  GO  TO  24 

23  CONTINUE 

24  POTENT !K)=BC+2.*AX/WIDTH 

26  CONTINUE 

DO  27  L=  1 , NS 

VAR  I AN! J)=VARIAN(  J) +  ( ! POTENT ( L ) -EXP VAL ! L )  )**2) 

27  CONTINUE 

28  CONTINUE 

WR  I  TE ( 6, 220 ) 

WR I TE ( 6, 231 ) 

D0  29  J=1,ND 

29  WRITE!6,232)  DI EF ! J ) , V AR I  AN  (  J  ) 

END 
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FORTRAN  SOURCE  LIST 

si  SOURCE  STATEMENT 

3  SIBFTC  TREPEZ 

SUBROUTINE  TREP  EZ ( YAXI S* XAXI S »  WIDTH ♦ PI  , N*NP* VALUE) 

TREPEZ  EVALUATES  CERTAIN  TERMS  REQUIRED  BY  THE  ANALYTICAL 

SOLUTION 

REAL  XAXIS( 75) , YAXI S ( 7b ) 

NP1=NP— 1 
AN=N 

CON  ST= ( 2.*AN  +  I.  )  *P I /  (  2 . *  W I D  TH  ) 

VALUE=O.G 
DO  5  J  =  1 »  NP I 

5  V ALUE= VALUE* { YAXISt  J  +  l  )  *COS(CGNST*XAXIS(J+l)  ) + YA X I S ( J ) *COS ( CONST 
IX AXIS! J  )  ) )»( XAXIS(J*1)-XAXIS(J) ) 

VALUE=0.5*VALUE 
RETURN 
END 
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I  1/12  30AU02 
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1-9/  = i 9/ 
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(HI  i  .  *.i)  \  19M  .1-M  A*.$  )  =  7  2  /i  0  3 

0.0=3UJAV 

is/ , 1=1  e  on 
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)4  IH-25  CONVENTIONAL 

5>OGR  AM  IS  BEING  ENTERED  INTO 


DIFFUSIVITY  OF  COPPER 
CONVENTIONAL 


INITIAL 
DISTANCE, CM, 

O, 15650CC0 
0.15079205 
0.13749749 
0.12423322 
0. 10609840 
0.09313567 
0.08215917 
0.07412769 
0.06491175 
0.05768818 
0.05080834 
0.04478735 
0.040617C6 
0.03750441 
0.03480196 
0.03213580 
0.02890614 
0.02599342 
0.02238981 
0.02011522 
0.01800369 
0.01536490 
0.01312325 
0.01148185 
0.00900834 
0.00646248 
0.00389845 
O.OOOOOOCO 


IBLDR  —  JOB  KAO 


STORAGE. 


SULFATE  IN  WATER 


CONDITIONS 
CONCN. ,G.M0LS/LI  T 
0.04938294 
0.05058586 
0.05099185 
0.05154497 
0.05241495 
0.05317123 
0.05411290 
0.05611427 
0.05803974 
0.06018000 
0.06272936 
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0.06749553 
0.06941540 
0.07206800 
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0.07814497 
0.08230344 
0.08499505 
0.08720088 
0.09090102 
0.09379641 
0.09553015 
0. 09828947 
0. 10079222 
0. 10294195 
0. 10500342 
0. 10878903 
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ME, SECS 

EXPERIMENTAL  DATA 
DISTANCE, CM. 

CONCN.,G.MGLS/l 

5,0 

0.01422727 

0.09713493 

20.0 

0.01422727 

0.09382965 

40.0 

0.01422727 

0.08949336 

50.0 

0.01422727 

0.08945030 

75.0 

0.01422727 

0.08620008 

100.0 

0.01422727 

0.0824  1088 

120.0 

0.01422727 

0.07989973 

150.0 

0.01422727 

0.07963167 

5.0 

0.04268181 

0.070611 36 

20.0 

0.04268181 

0.07164642 

40.0 

0.04268181 

0.07350914 

50.0 

0.04268181 

0.07293032 

75.0 

0.04268181 

0.07352710 

100.0 

0.04268181 

0.07388501 

120.0 

0.04268181 

0.07342859 

150.0 

0.04268181 

0.07274343 

5.0 

0.07113635 

0.05665765 

20.0 

0.07113635 

0.05739915 

40.0 

0.07113635 

0.05999278 

50.0 

0.07113635 

0.05927962 

75.0 

0.07113635 

0.06082587 

100.0 

0.07113635 

0.06195646 

120.0 

0.07113635 

0.06210056 

150.0 

0.07113635 

0.06304156 

5.0 

0.09959089 

0.05122213 

20.0 

0.09959089 

0.05167635 

40.0 

0.09959089 

0.05237648 

50.0 

0.09959089 

0.05331789 

75.0 

0.09959089 

0.05383166 

100.0 

0.09959089 

0.05390080 

120.0 

0.09959089 

0.05515302 

150.0 

0.09959089 

0.05592517 

5.0 

0.  12804543 

0.04985071 

20.0 

0.12804543 

0.04992752 

40.0 

0.  12804543 

0.05043102 

50.0 

0.12804543 

0.05018336 

75.0 

0.  12604543 

0.05009583 

100.0 

0. 12804543 

0.05062662 

120.0 

0. 12804543 

0.05162910 

150.0 

0.  12804543 

0.05109184 

f  I  .1  \  <  J  •I  »• 
>  •  i  \  V  )  . 

< 

Of.  £9  AP  . 

j£  CAPhO. 
U  '  Sdbci . 
b  (J  1  £  Si  8  0  • 
£  X  v  '•  \0. 

x  ;  i  <■•  p  x  o . 

I  1  dOX  0. 
A.  Ad  IX  o. 

A  I V  )8£X 0. 

S£ Of «  SX  0. 
o  ,\s 8 nc. 
1  be  rtf  VO. 
>  <  .  •  S  A  £  X  0. 
f A  AYSXO. 

. 

. 

8X  O'^  cU. 
Su‘  \  SU1  >. 

. 

Ad8P  I  o0. 
H  ISdO. 

.  LSI  <  . 

rf  OcIcO. 

•  '  • 

'  6Y1€€80. 

dd  i  f  f  80. 

i  etc  o. 

S  0  f  c  i  8  c  0  • 
X  1  8  <  d  > . 
i X  o -00. 
sex  so  A  ). 
SU  if  A  0  c  0  . 
«  >l  8  1 0  c  0  . 

■ t  ueo. 

. 

i <  Soli  i  • 

A  I  0  ]  b  0  . 


A  JWUO 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


AT/.!  J  A  7  .  J  0 1  rt  :\J 
.MO,  3  ATc;  10 
YSYSSAIO.O 
X  X  S  S  A  1 0  - 
X  sX  SSAiO.O 
X SXSSA  10. 0 
X  SX  SSA  10. 0 
X  S  X  SSA  10. 0 
XSX SSAIO.O 
X  SXSSAIO.O 
I  I  BdSAO.O 
i  < •  J rtdSAO.O 
J  VI BdSAO.O 
I  a IBdSAO.O 
I .  i 80S *0.0 
I8I8dSAO.O 
i 8 J  8dSA0 .0 
I  a i BdSAO.O 

e  f  6i  i  i  x  o .  o 
8fd£IIYO.O 
8£ d£ i J  YO.O 
<  £  d£ I J  YO  .  0 
8£d£  I  I  YO.O 
.  f df It YO.O 
8£d£  J I YO.O 
>£IIV  . 
v a oo ee 90.0 
V 8098990.0 
»  H098PP0.0 

9  b  ox  8  9  90 .  o 

9  8  09  89  90.0 
K  8  09  89  90.0 
9  8 OP  89  90  •  0 
98098990 .0 
f  Ac AObSI  . 

£  A 8 AO 8  SI  .0 
t  Ac  AU H  SI  .0 
£  A8 A08S I . 0 
f  Ac  A08SJ  .0 
£  A  *  A08SI .0 
«  AC  AO  SI  .0 

Ac  AObSi  .o 


PDJP  ♦  JMIT 
0.8 
O.OS 
0 . 0  A 
0.08 
0 . 8  Y 
0.001 
O.OSi 
0.081 
0.8 
O.OS 
0  •  0  A 
0.08 
0 . 8  Y 
0.001 
O.OSJ 
0.081 
0.8 
O.OS 
0 . 0  A 
0.08 
0.8V 
0.001 
O.OSI 
0.081 
0.8 
O.OS 
0.0  A 
0.08 
0.8X 
0.001 
O.OSI 
0.081 
0.8 
O.OS 
0 . 0  A 
0.08 
0.8Y 
0.00.1 
O.OSi 
0.081 


C- ASSUMED* SQ.CM/SEC 

variance 

0.00000400 

0.0001553 

0  .00000420 

0.0001424 

0.00000440 

0.0001311 

0.00000460 

0.0001216 

0.00000480 

0.0001136 

0.00000510 

0.0001045 

0.00000540 

0. 0000985 

0.00000570 

0. 0000955 

0 • 0000C600 

0.0000952 

0.00000620 

0. 0000965 

0.00000640 

0. 0000987 

0.00000660 

0.0001020 

0.00000680 

0.0001062 

0.00000700 

0.0001113 

0.00000720 

0.0001172 

0  •  0000C  740 

0.0001239 

0.00000760 

0.0001313 

0.00000780 

0.0001394 

0.00000800 

0.0001481 

0.00000820 

0.0001575 

1  Ot  A  I  M A  V 

00^\  0.  I^'l  1MU28 

<  i  oou  . 

00AJ0000.  :> 

^SAIOOO.O 

OS A  00000.0 

I 

OA^OOOOO.O 

OJ  Si  u  J  .  •  ■ 

00  A  1 0000 . 0 

d€  i  i  000.0 

08 A 000 00 . 0 

tVu  i  000.0 

0 1 £00000. 0 

<?bPOOOO  .0 

o^c 00000.0 

c’eeoooo  .o 

oveooooo.o 

seeoooo.o 

00600000.0 

<?dOOOOO  .0 

OS 6  0000 . 0 

Y800000  .0 

OAdOOOOO.O 

OS 01 000.0 

06600000.0 

. 

Ofid 00000.0 

£1  11 

00\  >0000.0 

SV  1 1000 .0 

OSYOOOOO.O 

w 

OAY  00000.0 

£ i £1000.0 

OdY 00000.0 

■  ‘££10  00.0 

. 

i  A  1 

oobooooo.o 

eiooo.o 

0S8Q0000 • 0 

-25  CONVENTIONAL 


FORTRAN  SOURCE  LIST 


N 


SOURCE  STATEMENT 


0 


$  I BF TC  DARSI  NODECK 
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REAL  YAXIS(75),XAXIS(75)»A(30) ,DIFF(25),X(50),EXPVAL(d0) 
REAL  T ( 50 ) , POTENT ( 50 ) , VAR  I  AN! 25) 


1  FORMAT (  IX, 314) 

2  FORMAT! 1X,F9.6, 7FI0.6) 

3  FORMAT! 1X,3F14.8) 

4  FORMAT! 1X,5F14.8) 


7  220  FORMAT! 1H2) 

0  223  FORMAT! 1H  ,/) 

1  224  FORMATtLH  ,15X,39H  DIFFUSIVITY  OF  COPPER  SULFATE  IN  WATER, 

1/25X,22H  CONVENTIONAL  APPRUACH) 

2  225  FORMAT! IN  ,30X,19H  INITIAL  CONDITIONS) 

3  226  FORMAT ! 1 H  ,20X,13H  D I  STANCE ,CM . , 5X , 1 8H  CONCN. ,G. MOLS/L I T ) 

4  227  FORMAT ! 1H  , 20X, F 1 3. 8 , 7X , F13 . 8 ) 

5  228  FORMAT ( 1 H  ,30X,18H  EXPERIMENTAL  DATA) 

6  229  FORMAT ( 1H  ,20X,10H  T  I M E , SEC S , 2 X , I 3H  D I  STANCE , CM. , 

1 2X , 1 8H  CONCN. ,G.MOLS/LIT) 

7  230  FORMAT ! 1H  , 22X, F6. 1 , 5X , F L 1 . 8 , 5X , F 1 3 . 8 ) 

0  231  FORMAT ( 1H  ,20X,20H  D-ASSUMED , SQ. CM/ SEC , 5X ,  9H  VARIANCt) 

1  232  FORMAT !  1H  , 23X, F  12. 8, 10X, F 10.7 ) 

2  READ (5,1)  NP , NS , ND 

6  RE AD ( 5 , 2  )  ! XAX I S ( J ) , J- 1 »  NP ) 

3  RE AD ( 5 , 2 )  ( YAX I S ( J ) , J= 1 , NP ) 

0  RE AO! 5 , 3 )  WIDTH, PI, 8C 

1  RE AD ( 5  *  4  )  !DIFF!J),J  =  1,ND) 

6  DO  17  J=  1 ,  NP 

7  17  XAXIS! J)=XAXIS( J  )/10.0 

1  CO  20  J=  1 , 30 

2  CALL  TREPEZ! YAXIS, XAXIS, WIDTH, PI ,J»NP, A!  J)  ) 

3  A  (  J  )  =- A  (  J  ) 

4  20  CONTINUE 

6  CALL  TREPEZ! YAX  IS, XAXIS, WIDTH, PI ,0,NPtA4) 
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23  CONTINUE 
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26  CONTINUE 
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APPENDIX  G 


Thermal  Diffusivity  of  Water 

This  appendix  consists  of  four  programs: 

1.  Program  IH-5  5,  which  uses  a  five-point  grid  and 
determines  the  values  of  versus  time  (i  *  1  to  5) 
from  experimental  data. 

2.  Program  IH-5  10,  which  uses  a  ten-point  grid  and 
determines  the  values  of  versus  time  (i  =  1  to  10) 
from  experimental  data. 

3.  Program  IH-5  10,  which  uses  an  analytical  solution, 
generates  its  own  data,  and  calculates  z^  versus 
time  (i  =  1  to  10) . 

4.  Program  IH-20  LOGFIT,  which  serves  the  same  purpose 
as  in  Appendix  F. 
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SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST 


0  $  I BFTC  DARSI  NODECK 

1  REAL  S( 16, 16) ,R ( 16) , VI16, 16) , A( 16) , B(  16)  , W1 ( 16 ) ,W2( 16) 

2  REAL  X(75) ,Y(  75  ) ,XX(  75)  ,YY(75)  ,AX(3)  ,AY( 3) ,W( 16, 16) 

3  REAL  C(25*10),CZ(10)  ,  C  3  (  10  )  ,  T  I  ME  3  {  2  5  )  , Z ( 2  5 , 10 )  ,GRIDX(10) 

4  REAL  WORM  10)  ,XNGRM(  10)  , WEIGHT (10) 

5  REAL  DX,  WIDTH,  BOUND,  FACTOR,  MAGNF,  ALPHA,  RM  ,  TBOUND,  T  I IMC 

6  INTEGER  NZ ( 1 50) , OT ( 6 ) , NA , COUNT R , NT , N, N 1 , MAXN , M , J , K , L I NES 
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GENERAL  PROGRAM  FOR  THERMAL  CONDUCTIVITY  DETERMINATION 

1.  THIS  PROGRAM  CAN  HANDLE  EXPERIMENTAL  DATA  OR  AN  ANALYTI¬ 
CAL  SOLUTOIN  AS  A  STARTING  POINT  FOR  THE  DETERMINATION  OF 
CONDUCTIVITY  USING  THE  SEMI-ANALYTICAL  TECHNIQUE. 

2.  IF  CQUNTR= 1 , THE  PROGRAM  TAKES  THE  ROUTE  OF  ANALYTICAL 
SOLUTION.  IF  IT  IS  AN  INTEGER  OTHER  THAN  1,  IT  TAKES  THE 
ROUTE  OF  EXPERIMENTAL  DATA. 


3.  THE  GENERAL  PROGRAM  HAS  TO  INCLUDE  THE  FOLLOWING  SU8R0U- 
TINES-EIG1, I  NT  ERP (  3RD  ORDER  I NTERPOLA TI ON) ,LI NE AR { LI  NEAR 
INTERPOLATION) , CHECK, DATA, CON VRT , ANALYT , MODIFY,  AND  PLOT. 
LINEAR  OR  INTERP  IS  TO  BE  USED  WITH  DISCRESIGN. 


4.  THE  ROUTE  OF  THE  ANALYTICAL  SOLUTION  CALLS  FOR  THE  FOLLOW¬ 
ING  DATA, READ  IN  THE  FOLLOWING  ORDER  AND  THE  FORMAT  STATE¬ 
MENTS  OF  THE  PROGRAM ( THE  SYMBOLS  ARE  EXPLAINED). 

COUNT  R {  =  1 ) 

NT ( NUMBER  OF  T  IMES  )  ,N( NUMBER  OF  GRID  POINTS) 

GR  I  DX ( ACTUAL  POSITIONS  OF  THE  GRID  POINTS) 

S ( J , J )  (DIAGONAL  ELEMENTS  OF  THE  COEFFICIENT  MATRIX) 

S( J,J+1) 

T  IME3(T IMES, CORRESPONDING  TO  NT) 

RM(  SQUARE  OF  THE  HALF-WIDTH  OF  THE  CELL) 

ALPHA,RM,TBOUND,TINC( THERMAL  D I FFUS I  V  IT Y , RM ( ABOVE )  , BOUND¬ 
ARY  TEMP., THE  UNIFORM  INITIAL  TEMP.) 

CZ ( THE  INITIAL  CONDITION  VECTOR) 

C3 ( THE  BOUNDARY  CONDITION  VECTOR) 

(NOTE  THAT  THERE  IS  SOME  DUPL ICAT I  ON. I T  MAY  ALSO  BE  NECES¬ 
SARY  TO  CHANGE  THE  DATA  DEPENDING  ON  THE  ANALYTICAL  SOLN.  ) 


5. 


THE  ROUTE  OF  EXPERIMENTAL  DATA  CALLS  FOR  THE  FOLLOWING 
DATA, READ  IN  THE  ORDER  SPECIFIED  BELOW. 

COUNTR , NOT  EQUAL  TO  1 
NT  ,  N 

GR  I  DX 
S  (  J ,  J  ) 

S( J»J+1) 

T  I M  6  3 

(THE' REST  OF  DATA  READ  IN  STRICTLY  FOLLOWS  THE  WAY  IN 
WHICH  THE  DECK  IS  MADE  AVAILABLE) 

Q7(6  POINTS  FOR  DETERMINATION  OF  ORIENTATION  OF  THE  FRAMES) 
CZ ( T HE  INITIAL  CONDITION  VECTOR) 

C3 ( THE  BOUNDARY  CONDITION  VECTOR) 

W  I  DTH  ,  BOUND ,  FA  C  TOR  ,  MAGNF  (  T  0  T  AL  WIDTH  OF  THE  MEASUREMENT.^ 
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SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST  DARSI 


C  WHETHER  HALF  FRAME  OR  FULL  FR AME , BOUNDAR Y  TEMP.,  CONVERSI- 

C  ON  FACTOR  FROM  MICRONS  TO  DEGREE  $ , MAGN I F I C AT  I  ON  FACTOR  FOR 

C  THE  FRAMES,  (  I. E.  )  THE  RATIO  OF  ACTUAL  FRAME  SIZE  TO  THE 

C  ACTUAL  CELL  SIZE, IF  ANY) 

C  NAtNUMBER  OF  POINTS  ON  THE  FR AME-X+Y ) 

C  NZ  (THE  ACTUAL  POINT  X  AND  Y  AS  SUPPLIED) 

C  NT  NUMBER  OF  SUCH  SETS 

C 

c 


7 

1 

FORMAT ( IX, 

14) 

10 

2 

FORMAT ( 10X 

,  1415  ) 

11 

3 

FORMAT! 1CX 

,615) 

12 

56 

FORMAT ( IX, 

10F5. 1) 

13 

57 

FORMAT ( IX, 

10F5. 1) 

14 

220 

FORMAT ( 1 H2 ) 

15 

221 

FORMAT ( 1H 

1  OX , 8  H  • • CONTD ) 

16 

222 

FORMAT (  1H 

t//) 

17 

223 

FORMAT! 1H 

»/> 

20 

224 

FORMAT! 1H 

, 1  OX , 30H  THERMAL  CONDUCTIVITY  OF  WATER, 

1  34H-DAT A  FROM  DR.R. N .0*6R IEN*S  EXPTS.) 

21 

225 

FORMAT!  1H 

, 10X , 14H  CELL  WIDTH, CM, 2X ,20H  BOUNDARY  TEMP, 

DEG.C, 

12X , 12H  CONV. FACTOR, 2X, 14H  MAGNIFICATION) 

22 

226 

FORMAT!  1H 

, 14X, F7.4, 10X,F6. 1, 1 3X , F8 . 5 , 6X , F 7. 4 ) 

23 

227 

FORMAT (  1H 

,29X,22H  ORIENTATION  OF  FRAMES) 

24 

228 

FORMAT!  1H 

, 33X, 2H  X, 8X,2H  Y) 

25 

229 

FORMAT ( 1H 

, 30X, F8.1 , 3X,F8. 1 ) 

26 

230 

FORMAT ( 1H 

, 32X, 7H  SL0PE=,F6.2) 

27 

231 

FORMAT ( 1H 

, 10X, 26H  A  TEN-POINT  GRID  IS  USED., 

130HTHE  GRID  POINTS  ARE  LOCATED  AT  ) 

30 

232 

FORMAT! 1H 

, 10X, 5F11.6) 

31 

233 

FORMAT ( 1H 

,28X,25H  INITIAL  CONDITION  VECTOR) 

32 

234 

FORMAT ( 1H 

, 10X, 10F6.2) 

33 

235 

FORMAT! 1H 

, 28X, 26H  BOUNDARY  CONDITION  VECTOR) 

34 

236 

FORMAT! 1H 

, 1 OX , 14H  ELAPSED  T I ME= , F6. 3 , 8H  SECONDS) 

35 

237 

FORMAT! 1H 

, 20X , 9H  RAW  DAT  A , 5X , 

1 32H  CONVERTED  TO  THE  RELEVENT  UNITS) 

36 

238 

FORMAT!  1H 

, 20X , 2H  X , 5X , 2H  Y,8X,12H  DISTANCE, CM 

» 5  X , 

118H  TEMPERATURE , DEG. C  ) 

37 

239 

FORMAT! 1H 

, 15X, F8.l,2X,F8.1,4X,F11.6,8X,F11.6) 

40 

240 

FORMAT ( 1H 

, 30X , 1 9H  COEFFICIENT  MATRIX) 

41 

241 

FORMAT!  1H 

, 10X, 10F6.2) 

42 

242 

FORMAT!  1H 

, 31X, 12H  EIGENVALUES) 

43 

243 

FORMAT! 1H 

, 3 IX , 13H  EIGENVECTORS) 

44 

244 

FORMAT! 1H 

, 20X , 35H  CHECK  OF  SIMILARITY  TRANSFORMATION) 

45 

245 

FORMAT! 1H 

,8X,8HTIME,SEC,5X, 

156H  INTERPOLATED  VALUES  OF  TEMPERATURE  AT  GRID 

POINTS, 

DfcG.C) 

46 

246 

FORMAT! 1H 

,8X,F6.3,2X, 10F6.2) 

47 

247 

FORMAT ( 1H 

, 30X , 1 8H  MODIFIED  VARIABLE) 

50 

248 

FORMAT! 1H 

, 10X, 10H  TIME, SECS, 5X,2H  1,10X,2H  2, 

9 X , 2H  3 

,  9X  , 

12H  4 , 9X , 2H 

5) 

51 

249 

FORMAT! 1H 

, 1  OX,  10H  TIME, SECS, 5X,2H  6,10X,2H  7, 

9  X ,  2  H  6 

,  9X  , 

12H  9,  9X , 2H 1 0 ) 

52 

250 

FORMAT!  1H 

, 30X, 20H  VALUES  FOR  PLOTTING) 

53 

251 

FORMAT! 1H 

, 12X,F6.3,2X,5F11.6) 

54 

252 

FORMAT ! 1H 

» 1 5X, 25H  NORMALISED  INNER  PRODUCT, 

FI! 
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IH-5  10 
ISN 


1 36H  OF  I. C. VECTOR  WITH  EACH  EIGENVECTOR) 

55  253  FORMAT { 1H  ,20X,5F11.6) 

56  261  FORMAT (  IN  ,  10X, 32H  THERMAL  CONDUCT  I  V  I T Y- AN AL YT I C AL , 

1 29H  SOLUTION  AS  A  STARTING  POINT) 

57  262  FORMAT ( 1 H  ,10X,11H  SLAB  WIDTH, 2X,20H  ASSUMED  DIFFUSIV1TY, 

1 2X , 1 5H  BOUNDARY  TEMP.,2X,14H  INITIAL  TEMP.) 

60  263  FORMAT ( 1H  , 14X,  3HCM. , 11X, 10H  SG . CM/ SEC , 1 2 X , 6H  DEG.C,10X, 

15HDEG.C  ) 

61  264  FORMAT ( 1H  , l 2X , F 7. 4 , 9X , F 1 0 . 7 , 1 2X , F 6 . 2 ,  9X,F6.2) 

62  265  FORMAT ( 1H  ,10X,39H  THE  ANALYTICAL  SOLUT I  ON ( RE F . MC ADAMS , P . , 

124H34 ) USED  TO  CALCULATE  THE/10X,23H  TEMPERATURE  YIELDS  THE, 
242H  FOLLOWING  TEMPERATURES  AT  THE  GRID  POINTS) 

63  266  FORMAT ( 1H  , 8X , 8 HT I  ME , SEC , 20X , 1 8H  TEMPERATURE , DEG. C ) 

64  1C00  FORMAT ( IX, 214) 

65  1001  FORMAT (  IX ,  5F12.8) 

66  1002  FORMAT!  1X,5F14. 8) 

67  RE AD ( 5 , 1 )  COUNTR 

71  READ(5,1C00)  NT , N 

74  READ(5,1C01)  (GRIDX ( J) » J=1»N) 

101  DX=ABS(GRIDX( 3 ) — GR I DX ( 2 ) ) 

L02  DO  50  J=1,N 

L03  DO  50  K=1,N 

104  50  S ( J  »  K ) =0 • 0 

107  READ (5,56)  (S(J,J>,J=1,N) 

L 14  N 1=N- 1 

115  RE  AD ( 5 , 56 )  ( S ( J *  J  +  l ) »  J= 1  *  N1 ) 

122  DO  52  J=  1 ,  N  1 

L23  52  S( J+l, J)=S( J, J+l) 

L25  READ (5,57)  ( T I  ME  3 ( J )  ,  J  =  1 , NT ) 

L32  MAXN= 16 

L  33  M  =  -N 

134  CALL  EIG1(N,MAXN,M, S,R,V, A,B,Wl,W2) 

L35  CALL  CHECK(V,R,N,W) 

L36  I F ( COUNTR • EQ . 1 )  GO  TO  28 

L41  RE AD ( 5 , 3 )  ( OT ( J  ) »  J= 1  *  6  ) 

L46  DO  10  J=  1  *  3 

147  10  AX( J)=FLCAT(OT( 2*J) ) 

151  DO  11  J  =  1 1*  3 

152  11  AY ( J )=FLOAT( 0T( 2*J-1 ) ) 

154  CALL  LESQFT(AX, AY, SLOPE) 

L55  READ (5,56)  ( C Z ( J  )  ,  J  =  1  * N ) 

162  READ ( 5,56) (C3(J ) »J=ltN) 

^67  READ(5»  1C02)  WI DTH, BOUND, FACTOR, MAGNF 

170  V  ALUE  =  0 • 0 

L71  DO  131  K=1,N 

L72  VALUE=VALUE+CZ(K)**2 

L73  W E IGHT ( K )  =  0  •  0 

L74  DO  131  J  =  1  *  N 

175  131  WE IGHT ( K ) =WE IGHT ( K ) +C Z ( J ) * V ( J » K ) 

200  DO  132  J=lfN 

201  132  WE  IGHT ( J ) =WE IGHT ( J ) /SQRT( VALUE ) 

203  WRITE(6,220) 

204  WR I TE ( 6 , 224 ) 

205  WRITE(6,222) 

206  WRITE(6,225) 
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WR I TE ( 6, 226 )  WI DTH, BOUND, FACTOR , MAGNF 
WRITE(6,223) 

WRITE! 6, 227) 

WRITE! 6,228) 

DO  340  J= 1 , 3 

340  WR ITE(6,229)  AX!J),AY!J) 

WRITE! 6,230)  SLOPE 
WRITE!6,222) 

WRITE(6,23l) 

WRITE! 6,2  32 )  ( GR  IDX ( J ) , J= 1 , N ) 

WR  I  TE<  6,  222 ) 

WRITE! 6,233) 

WRITE<6,234)  (CZ( J) , J=1,N) 
WRITE(6,222) 

WRITE! 6, 235) 

WRITE! 6, 2  34)  <  C  3 ( J ) »J=i,N) 

WR ITE!6,220) 

L I NES=8 

CALL  LINECT(LINES,1,2) 

WRITE! 6,237) 

NE  =  1 


4  READ  (5,1)  NA 

RE AD ( 5 , 2 )  ( NZ  !  J ) , J=1,NA) 

CALL  DATA (NA,NZ , X, Y,NP ) 

DO  8  J  =  1 , NP 
XXCJ)  —  X(J) 

8  Y  Y  (  J  )  =  Y  !  J  ) 

CALL  CON VRT ( NP, X, Y, SLOPE, WIDTH , BOUND, FAC TOR, MAGNF ) 
CALL  LINECT (LINES, 2, 2) 

WRITE(6,223) 

CALL  LINECT(LINES,1,2) 

WRIT£(6,236)  TI ME3 ( NE ) 

CALL  LINECT(LINES,1,2) 

WR  I  TE ( 6, 238 ) 

DO  22  J=  1 , NP 

CALL  LINECT!LINES,1,1) 

22  WR I TE ! 6, 239 )  XX ( J ) , Y Y ( J ) , X ( J ) , Y  (  J ) 

DO  210  K A=  1 ,  N 

CALL  LINEAR(NP,GRIDX,X,Y,KA,RR ) 


C( NE,KA )=RR 
210  CONTINUE 


NE=NE+  1 

I F ( NE#  LE .NT  )  GO  TO  4 

CALL  MODIFY! WORK, V,C3,CZ,Z,C, N, NT ) 

WRITE(6,220) 

L I NES=8 

CALL  LINECT(LINES,1,2) 

WRITE! 6,240) 

DO  345  J  =  1 ,  N 

CALL  LINECT(LlNES,lt2) 

345  WR I TE ( 6 , 24 1 )  ! S ( J  » K ) ,  K= 1 »  N ) 

CALL  LINECT(LINES,3,2) 

WRITE(6,222) 

CALL  LINECT (LINES, 1»2) 

WRITE(6,242) 
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CALL  LINECT (LINES, 2, 2) 

WRITE! 6,232)  (R( J  ), J  =  1,N) 

CALL  LINECT!LINES,3,2) 

WRITE(6,222) 

CALL  LINECT (LINES* 1 ,  2 ) 

WRITE! 6, 243) 

DO  346  K=  1  ,  N 
CALL  LINECT (LINES*4,2) 

WRITE(6,232)  (V(  J,K) ,J=1,N) 

346  WR  I T E (  6,  2 2 3 ) 

CALL  LINECT!LINES,4, 2) 

WR I TE ( 6 , 222 ) 

WRITE! 6,244) 

DO  347  J=  1 ,  N 
CALL  L1NECT(LINES,4,2) 

WRITE (6, 232)  !W(J,K) , K= 1 , N ) 

347  WRITE<6,223) 

WRITE!6,220) 

WRITE ( 6, 245 ) 

WRITE! 6,223) 

DO  348  J= 1 , NT 

348  WRITE!6,246)  TIME3(J), !C!J,K),K=1,N) 
WR I TE ( 6, 223 ) 

WRIT£(6»247) 

WRI TE ( 6, 223 ) 

WR  ITE ( 6,  248 ) 

DO  349  J=  1  , NT 

349  WRITE(6,251)  TI ME3 ( J )  ,  ( Z ( J , K ) , K= 1 , 5 ) 
WRITE!6,222) 

WR  I  TE ( 6, 249 ) 

DO  350  J  =  1 , N T 

350  WR I TE ( 6 , 25 1 )  TI ME3 ( J ) , < Z < J , K ) , K=6 , 1 0 ) 
CALL  PLOT !C,R,Z  »C3»CZ,N,NT) 
WRITE!6,220) 

WRI TE ( 6, 250 ) 

WRITE!6,223) 

WR I TE ! 6, 248 ) 

DO  351  J= 1 , NT 

351  WRITE!6,251)  TI ME3 ( J ) , (C ! J , K ) , K= 1 , 5 ) 
WRITE!6,223) 

WRI TE ! 6, 252 ) 

WRITE! 6, 253)  (WEIGHT(J),J=1,5) 

WRITE!6,223) 

WRITE! 6,249) 

DO  352  J=  1 , NT 

352  WRITE<6,251)  T I M63! J ) , ! C ( J , K ) , K=6 , 1 0 ) 
WR I TE! 6, 223 ) 

WRITE! 6,252) 

WRITE(6,253)  ( WE IGHT ! J ) , J=6, 10 ) 

GO  TO  29 

28  READ! 5, 1C02 )RM 
DO  30  J=1,N 

30  XNORM! J)=GRIDXl J ) / ( 2 . *  SORT ( RM )  ) 

31  READ!5,1002)  AL PHA, RM , T80UND , T INC 
SLAB=2.*SQRT ( RM ) 
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SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST  DARSI 


RE AD ( 5 , 56 )  < C Z ( J  )  , J = I , N ) 

RE AD ! 5  »  56 )  (  C3(  J  )  ,  J  =  1  ,N  ) 

VALUE=0.0 
DO  32  K= 1 , N 
VALUE=VALUE+CZ!K)**2 
WE  I GHT ( K ) =0 • 0 
DO  32  J=1,N 

32  WEIGHT (K)=WEIGHT(K) +  CZ ( J ) *V { J  ,  K ) 

DO  33  J=  1  * N 

33  WEIGHT! J)=WEIGHT( J) /SQRT (VALUE ) 

CALL  AN AL YT ( ALP HA ,RM , TBOUND , T I NC , N , NT , XNORM , T I ME3 , C ) 
WRITE(6,220) 

WRITE(6,26i) 

WRITE16, 222) 

WR I TE ( 6 »  262 ) 

WR I TE ( 6 »  26  3 ) 

WRITE! 6, 264)  SL A6 , AL PH A , TBOUND , T I NC 
WRITE! 6»222) 

WRITE(6,231) 

WRITE! 6, 2  32)  ( GR I DX ( J  )  , J= l , N ) 

WR ITE ( 6*  223 ) 

WRITE(6,265) 

WRITE(6, 223) 

WRITE(6»266) 

WR I TE ! 6»  2  23 ) 

DO  361  J=  1 »  NT 

361  WRITE!6,246)  T I ME3 ( J ) , ( C ( J , K ) t K= 1 , N ) 

WRITE(6,222) 

WRITE ! 6»  233 ) 

WRITE(6,234)  ( C  Z ( J ) *J=l*N) 

WRITE ( 6»  222 ) 

WR I TE ( 6 i 235 ) 

WRITE! 6* 234)  ( C 3 ( J ) , J=  l , N ) 

CALL  MODIFY! WORK, Vi C3,CZ,Z,C,N,NT) 

WRITE(6,220) 

LI NES=8 

CALL  LINECTtLINEStlt 2) 

WR I TE ( 6, 240 ) 

DO  362  J=1,N 

CALL  LINECT (LINES, 1 ,2 ) 

362  WRITE!6,241)  (S ( J*K)  ,K=1,N) 

CALL  LINECT(LINES,3,2) 

WR I TE ( 6 , 222 ) 

CALL  LINECT(LINES,1 ,2) 

WRITE(6, 242) 

CALL  L INECT(LINES,2,2) 

WRITE(6,232)  (R(J),J=ltN) 

CALL  LINECT(LINES,3,2) 

WRITE(6,222) 

CALL  LINECT(LINES,lt2) 

WR I TE ! 6 , 243 ) 

DO  363  K=1,N 

CALL  LINECT (LINES, 4, 2) 

WRITE!6,232)  ( V ( J , K )  ,J  =  1,N) 

363  WRITE(6»223) 
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SOURCE  STATEMENT 

CALL  LINECT(LINES,4,2) 

WR I TE ( 6 , 2  22 ) 

WRITEI6, 244) 

CO  364  J=  1  » N 
CALL  LINECT(LINES,4,2) 

WR I TE ( 6 *  2 32 )  (  W  (  J , K ) , K= 1 , N) 

364  WRITE!6,223) 

WR I TE ! 6*  220  ) 

WRITE{6,247) 

WRITE(6,223) 

WR I TE I  6*  248 ) 

DO  366  J= 1 »  NT 

366  WRITE!6,251)  T I  ME  3 { J } , ( Z ( J , K ) , K= 1 , 5 ) 
WR I TE ( 6t  222 ) 

WR I TE ( 6  »  249 ) 

CO  367  J= 1 » NT 

367  WRITE(6,251)  T I ME3 ( J ) , { Z ( J , K ) , K=6 , 1 0 ) 
CALL  PLOT(C,R,Z ,C3,CZ,NfNT) 
WRITE(6,220) 

WR I TE ( 6  »  250 ) 

WRITE(6,223) 

WRITE! 6, 248) 

DO  368  J=1,NT 

368  WRITE(6,251)  T I ME3 ! J ) , ( C ( J , K ) , K= 1 , 5 ) 
WRITE! 6, 223) 

WRITE(6,252) 

WRITE <6, 253)  ( WE  IGHT ( J ) » J  =  1 *5 ) 

WRITE(6,223) 

WR I TE ( 6, 249 ) 

DO  369  J=  1 » NT 

369  WRITE!6,251)  T I  ME  3 ( J ) , ( C ( J , K ) , K=6 , 1 0 ) 
WRITE(6,223) 

WRITE(6*252) 

WR I TE ! 6f  253 )  ! WE  IGHT ( J )  ,  J  =  6, 10 ) 

29  CONTINUE 
END 
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SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST 


[SN 


0  $  I  BF  TC  CONVRT  NODECK 

1  SUBROUTINE  CONVRT (NP , X , Y , SLOPE ,W I DTH 


C 

C 

C 

2 

3 

4 

5 

6 
7 

10 

11 

12 

13 

15 

16 
17 
20 
22 

23 

24 

25 
27 
30 


CONVRT  CONVERTS  THE  RAW  DATA  INTO  THE 

REAL  X( 75) *  Y ( 75 )  , MAGNF 

S 1=  AT  AN ( SLOPE) 

S2=1.5707963-S1 
S3=S IN ( S 1 ) 

S4=S  IN ( S2 ) /COS l S2 ) 

DO  16  J=i,NP 
XX=tX( J)-Y( J)/SL0PE)*S3 
YY=(YU)+XU)*S4)*S3 
X(J  )=XX 

16  Y(J  )=YY 
Xi=X(l) 

XN=X ( NP ) 

DO  17  J=1,NP 

17  X ( J  )=W  IDTH* (X ( J  )  —  XI ) /( XN-X1 ) 

Y  1  =  Y  (  1  ) 

DO  19  J= 1 ♦ NP 
V ALUE=Y ( J ) -Y 1 

19  YU  )  =BOUND- ABS(  VALUE  )  *FAC  TOR  *  MAGNF 
RETURN 
END 


BOUND, FACTOR , MAGNF ) 
RELEVENT  UNITS. 
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X  X  =  (  u  X 
v  y  =  (  L  )  Y  rU 
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(  I  )  X  =  J  X 

(  M  /  )  >  r  > 


A  « ] = l  YI  00 

(l  *  -  i  \  (.-!.)  n-1 ;  i  ..  .  (  i. 

(  I  )  Y= I Y 
‘W,1«L  U  03 
1  Y-(  U  Y  =  .iUJAv 

,  ,  *  I  ’  i  *  (  ;  J  A  V  )  <  M  A  -  J  =  (  U  Y  V  1 
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1  PROGRAM  IS  BEING  ENTERED  INTO  STORAGE. 


IBLCR  —  JOB  RAO 


THERMAL  CONDUC T I  V  I TY-AN AL YT  ICAL  SOLUTION  AS  A  STARTING  POINT 


SLAB  WIDTH 
CM. 

0.0430 


ASSUMED  DIFFUSIVITY 
SQ.CM/SEC 
0.0014090 


BOUNDARY  TEMP. 
DEG.  C 
25.00 


INITIAL  TEMP. 
DEG.C 
5.20 


A  TEN-POI.NT  GRID  IS  USED. THE  GRID  POINTS  ARE 
0.002048  0.004096  0.006144  0.008191 

0.012287  0.014334  0.016382  0.018430 


LUCATED  AT 
0.010239 
0.020477 


THE  ANALYTICAL  SOLUT ION ( REF .MCADAMS fP . 34 ) USED  TO  CALCULATE  THE 


TEMPERATURE 

TIME, SEC 

YIELDS 

THE  FOLLOWING  TEMPERATURES  AT 

TEMPERATURE , DEG.C 

THE  GRID  POI 

NTS 

0.010 

19.05 

13.92 

10.09 

7.  63 

6.26 

5.61 

5.34 

5.24 

5.21 

5.20 

0.020 

20.74 

16.79 

13.38 

10.65 

8.62 

7.21 

6.32 

5.78 

5.50 

5.38 

0.030 

21.51 

18.19 

15.18 

12.  59 

10.46 

8.81 

7.59 

6.76 

6.24 

6.00 

0.050 

22.30 

19.67 

17.21 

14.97 

13.00 

11.34 

10.01 

9.01 

8.35 

8.02 

0.070 

22.75 
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13.32 
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15.03 

14.81 

INITIAL  CONDITION 

VECTOR 

5.20 

5.20 

5.20 

5.20  5.20  5.20 

5.20  5.20 

5.20 

5.20 

BOUNDARY  CONDITION 

VECTOR 

25.00 

0.00 

0.00 

0.00  0.00  0.00 

0.00  0.00 

0.00 

0.00 
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MODIFIED  VARIABLE 


TIME, SECS 
0.0  10 
0.020 
0.030 
0.050 
0.070 
0.090 
0.100 
0.110 
0.120 


TIME, SECS 
0.010 
0.020 
0.030 
0.050 
0.070 
0.090 
0.100 
0.110 
0.120 


1 

0.822068 

0.822100 

0.822142 

0.822186 

0.822204 

0.822216 

0.822220 

0.822224 

0.822227 


6 

6.626212 

6.840742 

6.840796 

6.840824 

6.840840 

6.840850 

6.840855 

6.840859 

6.840862 


2 

-1.682543 

-1.682462 

-1.682456 

-1.682486 

-1.682525 

-1.682560 

-1.682577 

-1.682592 

-1.682606 


7 

9.241334 

9.443453 

9.448587 

9.448778 

9.448822 

9.448859 

9.448876 

9.448892 

9.448906 


3 

-2.627236 

-2.627182 

-2.627144 

-2.627119 

-2.627122 

-2.627132 

-2.627137 

-2.627142 

-2.627146 


8 

12.136411 

13.630496 

13.858642 

13.898955 

13.899978 

13.900046 

13.900063 

13.900078 

13.900091 


4 

3.719767 
3. 719906 
3. 719948 
3.719935 
3. 719882 
3. 719826 
3.719800 
3.719775 
3.719752 


9 

14. 114870 
18.927211 
21.373002 
23.247765 
23. 732087 
23.357287 
23.878773 
2 3.889723 
23. 895318 


5 

-5.061551 

-5.062151 

-5.062104 

-5.062047 

-5.062020 

-5.062004 

-5.061998 

-5.061992 

-5.061987 


10 

-19.218249 
-23.099655 
-26. 700053 
-33.137525 
-38.676150 
-43.441333 
-45.568243 
-47.541057 
-49.370939 
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VALUES  FOR  PLOTTING 


TIME, SECS 
O.OIO 
0.020 
0.030 
0.050 
0.070 
0.090 
0.  100 
0.110 
0.120 


NORMAL 


TIME, SECS 
0.010 
0.020 
0.030 
0.050 
0.070 
0.090 
0.  100 
0.110 
0.120 


1 

0.000320 

0.000271 

0.000207 

0.000140 

0.000111 

0.000094 

0.000088 

0.000082 

0.0C0076 


ISED  INNER 
0.010401 


6 

0.002713 

0.000032 

0.0C0022 

0.000016 

0.000014 

0.000012 

O.OCOOll 

0.000010 

0.0C0009 


2 

0.000179 

0.000240 

0.000244 

0.000222 

0.000193 

0.000166 

0.000154 

0.000142 

0.000131 


PRODUCT  OF 
-0.02 1286 


7 

0.027764 

0.000756 

0.000070 

0.000044 

0.000038 

0.000033 

0.000031 

0.000029 

0.000027 


3 

-0.000015 
0.000011 
0 . 0C0029 
0.000041 
0.000040 
0.000035 
0.000033 
0.000030 
0.000028 


I .C. VECTOR 
-0.03323 2 


8 

0.160218 

0.024503 

0.003780 

0.000118 

0.000025 

0.000019 

0.000017 

0.000016 

0.000015 


4 

-0. 000104 
-0.000151 
-0.000166 
-0.000161 
-0. 000143 
-0.000124 
-0.000115 
-0. 000107 
-0. 000099 


WITH  EACH 
0. 047048 


9 

0.517002 
0.262789 
0.  133589 
0. 034554 
0.008969 
0.002355 
0.001220 
0. 000642 
0. 000346 


5 

0.000091 
-0. 000059 
-0.000047 
-0.000033 
-0.000026 
-0.000022 
-0.000021 
-0.000019 
-0.000018 


EIGENVECTOR 

-0.064029 


10 

0.929300 
0.861980 
0.799533 
0.687880 
0.59181  7 
0.509168 
0.472278 
0.438061 
0.406323 


EIGENVECTOR 

-0.920828 


NORMALISED  INNER  PRODUCT  OF  I. C. VECTOR  WITH  EACH 
0.086531  0.119523  0.175826  0.302337 
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COLUMN  NUMBER=  9 


TIME, SECS 

EXPTL. VALUES  OF  Z 

LOGARITHMS 

Z-VALUES  FROM  FIT 

O.OIO 

0.51700200 

-0.659709 

0.51361190 

0.020 

0.26278900 

-1.336404 

0.26208108 

0.030 

0.13358900 

-2.012987 

0.  13373228 

0.050 

0.03455400 

-3.365232 

0.03482069 

0.070 

0.00896900 

-4.713981 

0. 00906648 

0.090 

0.00235500 

-6.051215 

0. 00236069 

0.100 

0.00122000 

-6. 708904 

0.00120459 

GRID  SPACING 
CM. 

EIGENVALUE 

SLOPE 

INTERCEPT 

DIFFUS  I  VIT Y 
SQ.CM/SEC 

0.0020480 

-0.198062 

-67.281402 

1.006548 

0. 1 4248E-02 
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SEMI-LOGARITHMIC  LEAST  SQUARE  FIT  OF  RESULTS 


COLUMN  NUMBER=  10 

TIME, SECS 

EXPTL. VALUES  OF  Z 

LOGARITHMS 

Z-VALUES  FROM  FIT 

0.010 

0.92930000 

-0.073324 

0.92930811 

0.020 

0.86197999 

-0.148523 

0. 86198025 

0.030 

0.79953300 

-0.223727 

0. 79953025 

0.050 

0.68788000 

-0.374141 

0.68787587 

0.070 

0.59181700 

-0.524558 

0.59181402 

0.090 

0.50916800 

-0.674977 

0.50916720 

0.  100 

0.47227800 

-0.750187 

0.4722  7831 

0.  110 

0.43806100 

-0.825397 

0.43806200 

0.  120 

0.40632300 

-0.900607 

0.40632465 

GRID  SPACING 

E  IGENVALUE 

SLOPE 

INTERCEPT 

DIFFUS I VI  TV 

CM. 

0.0020480 

-0.022338 

-7.520799 

1.001895 

SQ.CM/SEC 
0. 1412  IE-02 
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SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST 


0  $  I BFTC  DARSI  NODECK 

1  REAL  S  (  16, 16 ) ,R ( 16)  , V( 16, 16) ,A ( 16) ,B(  16)  , W1 ( 16 ) , W2 ( 16) 

REAL  X( 75) , Y( 75 ) ,XX( 75  )  ,YY(75) ,AX( 3  )  , AY( 3 ) ,W ( 16, 16) 

REAL  C(25» 10 ) ,C  Z ( 10) ,C3 ( 10 ) , T I ME3 ( 25 ) , Z ( 25 , 10 ) » GR I DX ( 10 ) 
REAL  WORK {  10) ,XNORM(  10) , WEIGHT (10) 

REAL  DX, W I D  TH, BOUND , FAC TOR, MAG NF , ALPHA, RM, T BOUND, T I NC 
INTEGER  NZ( 150)  , OT ( 6 ) , NA , COUNT R , NT , N , N  1 , M AXN , M , J , K , L I NES 


c 

c 

C  GENERAL  PROGRAM  FOR  THERMAL  CONDUCTIVITY  DETERM  I  NAT  I  ON 

C 

C  1.  THIS  PROGRAM  CAN  HANDLE  EXPERIMENTAL  DATA  OR  AN  ANALYT I  - 

C  CAL  SOLUTOIN  AS  A  STARTING  POINT  FOR  THE  DETERMINATION  OF 

C  CONDUCTIVITY  USING  THE  SEMI-ANALYTICAL  TECHNIQUE. 

C 

C  2.  IF  COUNTR- 1  *  THE  PROGRAM  TAKES  THE  ROUTE  OF  ANALYTICAL 

C  SOLUTION.  IF  IT  IS  AN  INTEGER  OTHER  THAN  1,  IT  TAKES  THE 

C  ROUTE  OF  EXPERIMENTAL  DATA. 

C 

C  3.  THE  GENERAL  PROGRAM  HAS  TO  INCLUDE  THE  FOLLOWING  SUBROU- 
C  TINES-EIG1, INTERP{ 3RD  ORDER  I NTERPOLATI ON)  ,L I  NEAR ( L INEAR 

C  INTERPOLATION) , CHECK, DATA, CONVRT, ANALYT, MODIFY,  AND  PLOT. 

C  LINEAR  OR  INTERP  IS  TO  BE  USEC  WITH  DISCRESION. 

C 

C  4.  THE  ROUTE  OF  THE  ANALYTICAL  SOLUTION  CALLS  FOR  THE  FOLLOW- 
C  ING  DATA, READ  IN  THE  FOLLOWING  ORDER  AND  THE  FORMAT  STATE- 

C  MENTS  OF  THE  PROGRAM ( THE  SYMBOLS  ARE  EXPLAINED). 

C  COUNTR (  =  1 ) 

C  NT ( NUMBER  OF  T I MES ), N ( NUMBER  OF  GRID  POINTS) 

C  GR I DX ( AC TUAL  POSITIONS  OF  THE  GRID  POINTS) 

C  S(J,J)  (DIAGONAL  ELEMENTS  OF  THE  COEFFICIENT  MATRIX) 

C  S(J,J+1) 

C  TIME3(TIMES, CORRESPONDING  TO  NT) 

C  RM ( SQUARE  OF  THE  HALF-WIDTH  OF  THE  CELL) 

C  ALPHA,RM,TBOUND,TINC( THERMAL  D I FFU S I  V  I T Y , RM ( ABO VE ) , BOUND- 

C  ARY  TEMP., THE  UNIFORM  INITIAL  TEMP.) 

C  CZ  (  THE  INITIAL  CONDITION  VECTOR) 

C  C3 ( THE  BOUNDARY  CONDITION  VECTOR) 

C  (NOTE  THAT  THERE  IS  SOME  DUPL ICAT I  ON . I T  MAY  ALSO  BE  NECES- 

C  SARY  TO  CHANGE  THE  DATA  DEPENDING  ON  THE  ANALYTICAL  SOLN.) 

C 

C  5.  THE  ROUTE  OF  EXPERIMENTAL  DATA  CALLS  FOR  THE  FOLLOWING 
C  DATA, READ  IN  THE  ORDER  SPECIFIED  BELOW. 

C  COUNTR, NOT  EQUAL  TO  1 

C  NT ,  N 

C  GR  I  DX 

C  S(J,J) 

C  S(J,J+1) 

C  TIME3 

C  (THE  REST  OF  DATA  READ  IN  STRICTLY  FOLLOWS  THE  WAY  IN 

C  WHICH  THE  DECK  IS  MADE  AVAILABLE) 

C  0T(6  POINTS  FOR  DETERMINATION  OF  ORIENTATION  OF  THE  FRAMES) 

C  CZ ( THE  INITIAL  CONDITION  VECTOR) 

C  C3 ( THE  BOUNDARY  CONDITION  VECTOR) 

C  WIDTH, BOUND, FACTOR, MAGNF(TOTAL  WIDTH  OF  THE  MEASUREMENTS- 
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FORTRAN  SOURCE  LIST  DARSI 
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C  WHETHER  HALF  FRAME  OR  FULL  FRAME ♦ BOUND ARY  TEMP.,  CONVERSI- 

C  ON  FACTOR  FROM  MICRONS  TO  DEGREES , MAGNI F I  CAT  I  ON  FACTOR  FOR 

C  THE  FRAMES, (  I. E.  )  THE  RATIO  OF  ACTUAL  FRAME  SIZE  TU  THE 

C  ACTUAL  CELL  SIZE, IF  ANY) 

C  NA ( NUMBER  OF  POINTS  ON  THE  FRAME-X+Y) 

C  NZ  (THE  ACTUAL  POINT  X  AND  Y  AS  SUPPLIED) 

C  NT  NUMBER  OF  SUCH  SETS 

C 

c 


7  1  FORMAT ( I X , I  4 ) 


10 

2 

FORMAT (  10X 

, 1415  ) 

11 

3 

FORMAT ( 1CX 

,615) 

12 

56 

FORMAT( IX, 

1  OF  5.  1 ) 

13 

57 

FORMAT (  IX, 

1 OF  5.  1 ) 

14 

191 

FORMAT ( IX, 

F12.6 , 2X, F 12.6) 

15 

19  2 

FORMAT (  IX, 

6H  END  ) 

16 

220 

FORMAT ( 1H2  ) 

17 

221 

FORMAT ( 1H 

10X , 8H  • • CONTD ) 

20 

222 

FORMAT (  1H 

t //) 

21 

223 

FORMAT (  1H 

,/) 

22 

224 

FORMAT (  1H 

, 1  OX , 30H  THERMAL  CONDUCTIVITY  OF  WATER, 

134H-DATA  FROM  DR . R. N . 0* BR I EN*S  EXPTS.) 

23 

225 

FORMAT ( 1H 

, 1 OX , 1 4H  CELL  WIDTH, CM, 2X ,20H  BOUNDARY  TEMP, 

DEG. C  , 

1 2X ,  1 2H  CONV. FACTOR, 2X,  14H  MAGNIFICATION) 

24 

226 

FORMAT (  1H 

,14X,F7.4,10X,F6.1,13X,F8.5,6X,F7.4) 

25 

227 

FORMAT (  1H 

,29X,22H  ORIENTATION  OF  FRAMES) 

26 

228 

FORMAT ( 1H 

, 3 3X, 2H  X , 8X , 2H  Y) 

27 

229 

FORMAT (  1H 

, 30X , F8 • 1 , 3X, F8. 1 ) 

30 

230 

FORMAT (  1H 

, 32X, 7H  SL0PE=,F6.2) 

31 

231 

FORMAT ( 1H 

, 10X , 26H A  FIVE-POINT  GRID  IS  USED., 

130HTHE  GRID  POINTS  ARE  LOCATED  AT  ) 

32 

232 

FORMAT (  1H 

, 10X, 5F11.6) 

33 

233 

FORMAT (  1H 

, 28X , 25H  INITIAL  CONDITION  VECTOR) 

34 

234 

FORMAT ( 1H 

,10X,  5F12.4) 

35 

235 

FORMAT ( 1H 

,28X,26H  BOUNDARY  CONDITION  VECTOR) 

36 

236 

FORMAT (  1H 

, 10X , 14H  ELAPSED  TIME=»F6.3,8H  SECONDS) 

37 

237 

FORMATt 1H 

, 20X, 9H  RAW  D AT  A , 5X , 

132H  CONVERTED  TO  THE  RELEVENT  UNITS) 

40 

238 

FORMAT ( 1H 

, 20X , 2H  X , 5X , 2H  Y,8X,12H  DISTANCE, CM 

,  5  X  , 

1 18 H  TEMPERATURE, DEG. C) 

41 

239 

FORMAT {  1H 

, 15X, F8.1 »2X,F8. i,4X,F11.6,8X,F11.6) 

42 

24  0 

FORMAT ( 1H 

, 30X , 1 9H  COEFFICIENT  MATRIX) 

/ 

43 

241 

FORMAT ( 1H 

,10X,  5F12.4) 

44 

242 

FORMAT (  1H 

, 3 IX ,  12H  EIGENVALUES ) 

45 

243 

FORMAT {  1H 

, 31X, 13H  EIGENVECTORS) 

46 

244 

FOR  MA  T ( 1H 

, 20X , 35H  CHECK  OF  SIMILARITY  TRANSFORMATION) 

47 

245 

FORMAT ( 1H 

,8X,8HTIME,SEC,5X, 

DEG. C ) 

156H  INTERPOLATED  VALUES  OF  TEMPERATURE  AT  GRID 

POINTS, 

50 

246 

FORMAT!  1H 

,8X,F6.3,2X,  5  F 1 2 • 4 ) 

51 

247 

FORMAT ( IN 

, 30X ,  1 8H  MODIFIED  VARIABLE) 

9 X , 2H  3 

,  9X  , 

52 

248 

FORMAT ( 1H 

, 10X, 10H  TIME, SECS, 5X,2H  1,10X,2H  2, 

12H  4 »  9X , 2H 

5) 

9X,2H  8 

,  9  X  , 

53 

249 

FORMAT (  1H 

, 10X, 10H  TIME, SECS, 5X,2H  6,L0X,2H  7, 

12H  9,  9X  »  2H i 0 ) 

54 

250 

FORMAT (  1H 

, 30X, 20H  VALUES  FOR  PLOTTING) 
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IH-5  5 
ISN 


55 

56 

57 
60 

61 

62 

63 

64 


251  FORMAT {  1H  ,  1 2 X , F 6 . 3 , 2X ? 5F 1 1 . 6 ) 

252  FORMAT ( 1 H  ,15X,25H  NORMALISED  INNER  PRODUCT, 

136H  OF  I.C. VECTOR  WITH  EACH  EIGENVECTOR) 

253  FORMAT ( 1H  ,20X,5F11.6) 

261  FORMAT (  1H  ,  10X,  32H  THERMAL  CONDUC T I  V I T Y-ANAL YT I  CAL , 

1 29H  SOLUTION  AS  A  STARTING  POINT) 

262  FORMAT ( 1H  ,10X,11H  SLAB  WIDTH, 2X,20H  ASSUMED  DIFFUSIVITY, 

1 2X »  1 5H  BOUNDARY  TEMP.,2X,14H  INITIAL  TEMP.) 

263  FORMAT (  1H  , 14X , 3HCM . , 1 1 X , 1  OH  SO. CM/ SEC , 1 2 X , 6H  DEG.C,10X, 
15HDEG.C) 

264  FORMAT ( 1H  , 1 2X , F 7 . 4 , 9X , F 1 0 . 7 , 1 2X , F6 . 2 ,  9X,F6.2) 

265  FORMAT (  1H  ,10X,39H  THE  ANALYTICAL  SOLUT I  ON ( REF . MCADAMS , P . , 
124H34 ) USED  TO  CALCULATE  THE/10X,23H  TEMPERATURE  YIELDS  THE, 
242H  FOLLOWING  TEMPERATURES  AT  THE  GRID  POINTS) 

266  FORMAT ( 1 H  , 8X * 8 HT I ME  , S EC , 20X , 1 8H  TEMPERATURE , DEG . C ) 

1000  FORMAT ( IX, 214) 

1001  FORMAT (IX,  5F12.8) 

1002  FORMAT ( 1X,5F14.8  ) 

RE AD ( 5 ,  l  )  COUNT R 
READ! 5, 1C00  )  NT  ,N 
READ(5,1C01)  (GRIDX(J) , J=1 , N) 

DX=ABS(GRIDX(3)-GRIDX( 2) ) 

DO  50  J=1,N 
DO  50  K=  1 , N 
50  S(J,K)=0.0 

RE  AD ( 5 , 56 )  ( S ( J , J  ) , J= 1 , N ) 

N 1=N- 1 

READ(5,56)  < S( J  ,  J  +  l ) , J=1 ♦ N1 ) 

DO  52  J= 1 , N 1 
52  S(J+1,J)=S( Jf J+l) 

READ(5,57)  ( T IM E3 < J ) , J = 1 , NT ) 

M AXN= 1 6 
M  =  -N 

CALL  EIG1 (N,MAXN,M, S,R, V, A,B, W1,W2) 

CALL  CHECK(V,R,N,W) 

IF( COUNTR.EQ.  1)  GO  TO  28 
R  E AC ( 5 , 3  )  ( OT ( J  )  , J=l»6) 

DO  10  J=1 ,3 

10  AX( J)=FLOAT(OT< 2*J) ) 

DO  11  J=  1 »  3 

11  AY( J)=FLOAT(OT( 2*J-1 ) ) 

CALL  LESQFT(AX, AY, SLOPE) 

RE AD ( 5 , 56 )  ( C Z ( J  )  , J =  1  * N ) 

READ(5,56) ( C  3  C  J  )  »  J= 1 »N ) 

READ(5,1C02)  WIDTH, BOUND , FACTOR , MAGNF 

VALUE=0.0 

DO  131  K= 1 , N 

VALUE=VALUE+CZ(K)**2 

WE  I GHT ( K ) =0 . 0 
DO  131  J=l»N 

131  WEIGHT(K)=WEIGHT(K)+CZ(J)*V(J,K) 

DO  132  J  =  1  ♦  N 

132  WE  I  GHT ( J ) =WE I GH  T ( J ) /SORT ( VALUE ) 

WRITE(6,220) 

WRITE(6,224) 
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WR I TE ( 6,  222 ) 

WRITE (6, 225) 

WRITE(6,226)  WIDTH, BOUND , FAC  TOR , MAGNF 
WR  I  TE ( 6, 223 ) 

WRI TE ( 6*  227 ) 

WRITE(6»228) 

CO  340  J  =  1 , 3 

340  WRITE(6,229)  AX(J),AY(J) 

WRITE(6»230)  SLOPE 
WRITE(6,222) 

WRITE! 6, 231 ) 

WR I TE { 6 , 2 32 )  ( GR  IDX ( J ) ,  J=  1 , 

WR I TE ( 6, 222 ) 

WftTTFr  A-  \ 


\  N ) 


Wrsl  I  t  l  o,  ^  ) 

WRITE(6,233) 

WR I TE ( 6, 234 )  ( C  Z ( J ) ,J  =  1, 

WR I TE ( 6, 222 ) 

WR I TE ( 6, 235 ) 

WRITE(6,234)  ( C  3 ( J ) , J=1,N) 
WR I TE ( 6, 220 ) 

L  I NE S  =  8 

CALL  LINECT ( L INES* 1 ,2) 
WRITE! 6, 237) 

Ki  C  —  1 


4  READ  ! 5 , 1 )  NA 

READ  <  5 , 2  )  ( NZ ( J ) , J= 1 , N A ) 

CALL  DATA(NA,NZ»X»Y»NP) 

CO  8  J=  1 , NP 
XX! J)=X! J) 

8  YY ! J ) = Y ( J ) 

CALL  CONVRT(NP, X,Y, SLOPE, WIDTH, BOUND, FAC  TOR, MAGNF ) 
CALL  LINECT(LIN£S,2,2) 

WRITE!6,223) 

CALL  LINECT(LINES,1,2) 

WRITE(6,236)  TI ME3! NE ) 

CALL  LINECT(LINES,1,2) 

WR  I  TE  !  6 , 2  38  ) 

DO  22  J= 1 , NP 

CALL  L  INECT (LINES, 1,1) 

WRITE!3, 191)  X ( J  )  , Y ( J ) 

22  WRITE(6,239)  XX ( J ) , Y Y ( J ) , X ( J ) , Y ( J ) 

WRITE(3,192) 

CO  210  K  A=  1 ,  N 

CALL  LINEAR(NP, GR I D X , X , Y , K A , RR ) 


C ( NE , K A ) =RR 
210  CONTINUE 
NE=NE+  1 

IF! NE .LE  .NT  )  GO  TO  4 

CALL  MODIFY! WORK, V , C 3 , C Z , Z , C , N , NT) 

WRITE(6,220) 

L INES=8 

CALL  LINECT(LINES,1,2) 

WR I TE ( 6 , 240 ) 

DO  345  J  =  1 , N 

CALL  LINECT(LINES,1, 2) 

345  WRITE (6, 241)  ( S ( J , K )  , K= 1 , N ) 
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332 

333 

334 

335 

336 

337 

344 

345 

346 

347 

350 

351 

352 

357 

346 

361 

362 

363 

364 

365 

366 

3  73 

347 

375 

376 

377 

^00 

^01 

348 

^07 

HO 

m 

V12 

H3 

V 14 

349 

♦  22 

♦  23 

V24 

♦25 

♦  26 

♦  27 

♦  30 

351 

♦  36 

♦  37 

»40 

♦  45 

♦46 

28 

♦47 

♦  50 

30 

♦  52 

31 

♦  53 

♦  54 

♦  61 

♦66 

♦67 

♦  70 

♦  71 

♦  72 

SOURCE  STATEMENT 

CALL  LINECT (LINES, 3, 2) 

WR I TE ( 6  *  2 22 ) 

CALL  L INtCT ( L  INES,  1 ,2) 

WRITE(6,242) 

CALL  LINECT(LINES,I,2) 

WR I  TE ( 6, 2  32  )  (R(J), J  =  IfN) 

CALL  LINECT (LINES»3*2) 

WRITE(6,222) 

CALL  LINECT(LINES,1,2) 

WRITE! 6, 243) 

DO  346  K  =  1 ,  N 
CALL  LINECT (LINES, 3, 2) 

WR I TE ( 6  »  232  )  !  V  (  J  ,  K  )  ,  J  =  1 ,  N  ) 
WRITE!6,223) 

CALL  LINECT!L INES, 4, 2) 

WR I TE ( 6, 222 ) 

WRITE(6,244) 

DO  347  J=  1 ,  N 
CALL  LINECT(LINES»3»2) 

WRITE! 6, 232)  ( W ( J , K ) , K= I , N ) 

WR I TE ( 6  *  223 ) 

WRITE(6,220) 

WRITE! 6,245) 

WR I TE ( 6 »  22 3 ) 

DO  348  J= 1 , NT 
WRITE! 6,246)  T I ME3 ( J  )  , ( C ! J , K ) , K=1 , N ) 
WRITE! 6,223) 

WR  I  TE  (  6 , 24  7  ) 

WR I TE! 6, 223 ) 

WRITE! 6, 248) 

DO  349  J  =  I , N T 

WRITE! 6,251 )  TI ME  3 ( J ) , ( L ( J , K ) , K= 1 , 5 ) 
CALL  PLOT (C,R,Z ,C3,CZ,N,NT) 

WRITE! 6, 220) 

WRITE! 6, 250) 

WRITE(6, 223) 

WRITE(6,248) 

DO  351  J  =  1 , NT 

WR I TE! 6, 251  )  T I ME3 ( J  )  , ( C ( J , K ) , K=1 , 5 ) 
WRITE! 6, 223) 

WR I TE! 6, 252 ) 

WRITE! 6, 253)  (WEIGHT! J) ,J=1,5) 

GO  TO  29 

RE  AD ( 5 , 1C  02  )  RM 

DO  30  J=  1 ,  N 

XNORM! J )=GR I  OX ( J ) / ( 2.*SQRT ( RM)  ) 

READ! 5, 1C  02  )  AL PHA , R M , T BOUND , T I NC 
SLAB=2.*SQRT( RM ) 

READ!5,56)  (CZ(J),J=1,N) 

RE AD ( 5 , 56 )  ( C 3! J ) , J = 1 , N ) 

VALUE=0.0 
DO  32  K=  1 , N 
VALUE=VALUE+CZ( K)**2 
WE IGHT!K )=0.0 
DO  32  J= 1 t N 
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SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST  DARSI 


IH-5 

ISN 


473 

476 

477 
301 
502 
50  3 

504 

505 

506 
50  7 
510 
311 

512 
517 

520 

521 

522 

523 

524 

525 

533 

534 

535 

542 

543 

544 

551 

552 

553 

554 

555 
55b 
557 
560 

566 

567 

570 

571 

572 

573 

500 

501 

502 

503 

504 
50  5 
506 

513 

515 

516 

517 
i)20 

521 

522 
527 


32  WE  IGFiT  (K  )  =  WE  IGHT  ( K  )  +  CZ ( J  )  *  V  (  J  »  K  ) 

DO  33  J=  1 ,  N 

33  WEIGHT(J)=WEIGHT(J)/SQRT(VALUE) 

CALL  ANAL Y  T ( ALPHA ,RM , TBOUND , T I NC ,NfNT , XNORM , T I ME 3 , C ) 
WRITE(6,220) 

WR I TE ( 6, 26  l  ) 

WR I TE ( 6 , 2  22 ) 

WRITE(6,262) 

WR  I  TEC  6,  263) 

WRITEC  6,264)  SL AB , AL PH A , TBOUND , T I NC 
WR I TE ( 6,  222 ) 

WR I TE ( 6 *  23 1 ) 

WRITE(6*232)  ( GR I DX ( J ) , J= 1 , N ) 

WR I TE (  6*  223 ) 

WRITE(6,265) 

WRITE(6,223) 

WR  I  TE ( 6,  266 ) 

WRITE(6,223) 

DO  361  J= i , NT 

361  WRI TEC  6,24b)  TIME3(J),(CCJ,K),K=1,N) 

WRIT£(6»222) 

WRITEC 6f 233) 

WR I TE ( 6 »  234 )  CCZC J) , J=1,N) 

WR  I  TE ( 6 »  222 ) 

WRITE<6,235) 

WRITE(6»2  34)  CC3CJ) »  J= 1 » N ) 

CALL  MODIFYC  WORK, V,C3,CZ,Z,C, N,NT) 

WR I TE  t  6 , 220 ) 

L INES=8 

CALL  LINECTCLINESt 1*2) 

WRITE<6,240) 

DO  362  J  =  1 ,  N 

CALL  L INECTCL INES, 1, 2) 

362  WRITEC6,241)  ( S ( J * K ) * K=1 ,N) 

CALL  LINECT (LINES*3*2) 

WRITEC6, 222) 

CALL  LINECTCLINES* 1,2) 

WRITEC6,242) 

CALL  LINECTCLINES, 2, 2) 

WR I TE  C  6 , 232 )  (R(J),J=1,N) 

CALL  LINECTCLINES, 3, 2) 

WRITE(6,222) 

CALL  LINECTCLINES, 1,2) 

WR I TE ( 6 , 243 ) 

CO  363  K= 1 , N 

CALL  LINECTCLINES, 4, 2) 

WRITE (6,232)  (V(J,K),J=1,N) 

363  WR I TE  C  6 , 22 3 ) 

CALL  L  INECTCL  INES, 4, 2) 

WRITE(6,222) 

WRITE(6,244) 

DO  364  J  =  1 , N 

CALL  LINECTCLINES, 4, 2) 

WR I TE  t  6 , 2  32 )  ( W C J , K ) , K= 1 , N ) 

364  WRITE(6,223) 
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SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST  DARS I 


WR I TE ( 6, 220) 

WR I TE ( 6 *  24  7  ) 

WRITE(6,223) 

WRITE! 6, 248  ) 

CO  366  J  =  I »  N T 

366  WRITE(6,251)  TI ME 3 ( J ) , ( Z ( J , K )  , K= I , 5 ) 
WRITE(6,222) 

WR I TE ( 6 , 249 ) 

DO  367  J=  1 , NT 

367  WRITE(6,251)  TI ME 3 ( J ) , ( Z ( J , K } , K  =  6 , l 0 ) 
CALL  PLOT (CfRfZ  »C3»CZ»N,NT) 
WRITE(6*220) 

WRITE(6,250) 

WRITE!6,223) 

WR I TE ( 6 »  248 ) 

DO  368  J= I  *  NT 

368  WRITE!6,251)  TIME3( J ) t ( C <J*K ) , K=1 ,5 ) 
WR I TE ( 6, 223) 

WR I TE ! 6 , 2  52 ) 

WRITE (6, 253)  ( W E I GHT l J ) , J= 1 , 5 ) 

WRITE! 6, 223) 

WR I TE ( 6 »  249 ) 

DO  369  J= 1 » NT 

369  WRITE!6,25l)  TIME3! J ) t (C ( J »K ) , K=6t 10 ) 
WR I TE ( 6, 223 ) 

WRITE! 6,252) 

WRITE (6, 253)  (WEIGHT(J) ,  J=6, 10 ) 

29  CONTINUE 
END 
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PROGRAM  IS  BEING  ENTERED  INTO  STORAGE. 

THERMAL  CONDUCTIVITY  OF  WATER-DATA  FROM  DR .R • N. G*BRI EN*S  EXPTS. 


CELL  W I DTH  »  CM 
0.0215 


BOUNDARY  TEMP, DEG. C  CONV. FACTOR  MAGNIFICATION 
25.0  0.C0597  1.2464 


ORIENTATION  OF  FRAMES 


84618.0 
84645.0 
84674.0 
SLOPE = 


48016.0 

49458.0 

50770.0 

56.38 


A  FIVE-POINT  GRID  IS  USED. THE  GRID  POINTS  ARE  LOCATED  AT 
0.003909  0.007818  0.011727  0.015636  0.019545 


INITIAL 

CONDITION 

VECTOR 

22.2800 

19.99C0 

18. 7400 

17.5600 

17.0600 
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CONDITION 

VECTOR 
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-0.0000 

-0.0000 
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CONVERTED  TO  THE  RELEVEN7  UNITS 


ELAPSED  T  I ME  =  0.042  SECONDS 


X 

Y 

DISTANCE  ,CM 

TEMPERATURE,! 
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0. 000000 

25.000000 

86538.0 

48451.0 

0.000537 

24.791027 

86532.0 

48420.0 

0.001187 

24.559600 

86527.0 

48385.0 

0.001709 

24.298543 

86522.0 

48353.0 

0.002237 

24.059806 

86517.0 

48323.0 

0.0027  70 

23.835954 

86514.0 

48285.0 

0. 003048 

23.552844 

86512.0 

48258.0 

0.003229 

23.351704 

86510.0 

48226.0 

0. 003400 

23. 113363 

86508.0 

48193.0 

0.003568 

22.867588 

86504.0 

48157.0 

0.003969 

22. 599225 

86498.0 

48130.0 

0.004628 

22.397558 

86495.0 

48093.0 

0. 004907 

22. 121889 

86492.0 

48063.0 

0.005201 

21 . 898299 

86484.0 

48044.0 

0.006115 

21.755884 

86476.0 

48012.0 

0.007001 

21.516751 

86468.0 

47990.0 

0.007909 

21 . 352020 

86465.0 

47947.0 

0.008175 

21.031712 

86457.0 

47898.0 

0.009026 

20.666103 

86456.0 

47872.0 

0.009090 

20.472539 

86446.0 

47849.0 

0.010234 

20.300102 

86438.0 

47807.0 

0.011099 

19.986574 

86428.0 

47778.0 

0.012230 

19. 769498 

86421.0 

47740.0 

0.012984 

19.485857 

86401.0 

47722.0 

0.015331 

19.349303 

86392.0 

47706.0 

0.016370 

19.229077 

86380.0 

47683.0 

0.017752 

19.056379 

86364.0 

47662.0 

0.019615 

18.898032 

86348.0 

47651.0 

0.021500 

18.814077 
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T I  ME , SEC  INTERPOLATED  VALUES  OF  TEMPERATURE  AT  GRID  POINTS, DEG. C 
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VALUtS  FOR  PLOTTING 


TIME, SECS 
0.042 
0.083 
0.125 
0.167 
0.208 
0.250 
0.292 
0.333 
0.375 


1 

-1.718793 
0.254004 
-0.947403 
0.410724 
0.455535 
-0.277427 
0.051319 
0.354261 
0. 197733 


2 

-69.278896 
26.87  1036 
-11.294418 
48. 629065 
89.305514 
-50.452531 
15.496379 
1.980154 
-8.164968 


3 

0.573617 

0.577191 

1.865695 

-0.283697 

-0.120878 

1.204640 

0.170549 

-0.039272 

-0.117013 
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0.932155 
0.891834 
0.923383 
0. 515768 
0. 172427 
0.863927 
0.661747 
0. 385994 
0. 049691 
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0.775846 
0.647133 
0.503266 
0.335976 
0.237962 
0.263575 
0.213899 
0.  115634 
0.055432 


NORMALISED  INNER  PRODUCT  OF  I. C. VECTOR  WITH  EACH  EIGENVECTOR 
-0.055382  0.112789  0.196994  0.368936  -0.899606 
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SEMI-LOGARITHMIC  LEAST  SQUARE  FIT  OF  RESULTS 


COLUMN  NUMBER=  5 


TIME, SECS 

EXPTL. VALUES  OF  Z 

LOGARITHMS 

Z-VALUES  FROM  FIT 

0.042 

0.77584599 

-0.253801 

0.87123627 
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0.64713300 

-0.435203 
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0. 1 1126519 
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0.05543200 

-2.892598 

0.0826  7 241 

GRID  SPACING 

EIGENVALUE 

SLOPE 
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DIFFUSIVI TY 

CM. 
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SQ.CM/SEC 
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PROGRAM  IS  BEING  ENTERED  INTO  STORAGE. 


THERMAL  CONDUCTIVITY  OF  WATER-DATA  FROM  DR.R.N.O*BRI EN*S  EXPTS. 


CELL  WIDTH, CM  BOUNDARY  TEMP, DEG. C  CONV. FACTOR  MAGNIFICATION 
0.0215  25.0  0.C0597  1.2464 


A  TEN-POINT  GRID  IS  USED. THE  GRID 
0.002048  0.004096  0.006144 

0.012287  0.014334  0.016382 


POINTS  ARE  LOCATED  AT 
0.008191  0.010239 

0.018430  0.020477 


INITIAL  CONDITION  VECTOR 

23.57  22.20  20.71  19.92  19.16  18.57  17.85  17.39  17.13  17.00 


BOUNDARY  CONDITION  VECTOR 

25.00  -0.00  -0.00  -0.00  -0.00  -0.00  -0.00  -0.00  -0.00  -0.00 
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INTERPOLATED  VALUES  OF  TEMPERATURE  AT  GRID  POINTS, DEG. C 


0.042 

24.15 

22.56 

0.083 

24.20 

22.95 

0.125 

24.02 

23.20 

0.167 

24.63 

24.13 

0.208 

24.78 

24.52 

0.250 

24.60 

2  3.83 

0.292 

24.62 

24.28 

0.333 

24.79 

24.63 

0.375 

24.93 

24.87 

21.75  21.02  20.30  19.75 
22.27  21.57  21.04  20.77 
22.85  22.31  21.93  21.75 
23.73  23. 10  22.87  22.72 
24.05  23.69  23.54  23.44 
23.60  23.49  23.37  23.30 
23.94  23.72  23.57  23.53 
24.42  24.28  24.19  24.21 
24.79  24.72  24.68  24.63 
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23 

19. 

00 
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48 
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93 
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41 
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58 

22. 

52 

22. 

46 

22. 

39 

23. 

37 
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28 

23. 

1  1 

23. 

04 

23. 

20 

23. 

1  1 

23. 

08 

23. 

03 

23. 

52 

23. 

46 

23. 

44 

23. 

43 
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15 

24. 

15 

24. 

20 

24. 

20 

24. 

57 

24. 

54 

24. 

56 

24. 

62 

MODIFIED  VARIABLE 


TIME, SECS 
0.042 
0.083 
0.125 
0.167 
0.208 
0.250 
0.292 
0.333 
0.375 


TIME, SECS 
0.042 
0.083 
0.  125 
0.167 
0.208 
0.250 
0.292 
0.333 
0.375 


1 

0.868539 

0.854731 

0.849930 

0.878501 

0.810068 

0.852427 

0.814046 

0.793894 

0.822255 


6 

6.853531 

6.957360 

6.644901 

6.880148 

6.909384 

6.913084 

6.862918 

6.880778 

6.887711 


2 

-1.819153 

-1.807657 

-1.780821 

-1.762396 

-1.682246 

-1.745279 

-1.663178 

-1.675741 

-1.688349 


7 

9.508765 
9.543174 
9.472232 
9.637638 
9. 705880 
9.379457 
9.499874 
9.468895 
9.408727 


3 

-2.792552 

-2.745600 

-2.671057 

-2.655303 

-2.574069 

-2.746697 

-2.623051 

-2.641648 

-2.622506 


8 

13.832709 
13. 696645 
13.405939 
14.040455 
13.920037 
13.586570 
13.842448 
13.921186 
13.952114 


4 

3. 933765 
3.883332 
3. 739974 
3.654125 
3.700233 
3.842040 
3. 729463 
3.683819 
3. 715234 


9 

22.987144 
23. 094270 
23.131318 
23.474931 
23.747806 
23.  152215 
23.305782 
23.529620 
23.850436 


5 

-5.275039 
-5.042993 
-4.970780 
-5.031540 
-5.068720 
-5. 167614 
-5.037607 
-5.045783 
-5.045282 


10 

-57.962658 
-60.455501 
-63.226580 
-66.404360 
-68.278498 
-67.807282 
-68.718682 
-70.585868 
-71 . 744887 
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VALUES  FUR  PLOTTING 


TIME, SECS 
0.042 
0.083 
0.125 
0.167 
0.208 
0.250 
0.292 
0.333 
0.375 


NORMAL 


TIME, SECS 
0.042 
0.083 
0.125 
0.167 
0.208 
0.250 
0.292 
0.333 
0.375 


NORMAL 


1 

-0.403637 
-0.283162 
-0.241271 
-0.490558 
0. 106527 
-0.263057 
0.071813 
0.247642 
0 • COO  192 


I SED  INNER 
0.011496 


6 

0.058612 
0.540899 
-0.910480 
0. 182248 
0.318046 
0.335235 
0. 102213 
0.185172 
0.217375 


I SEO  INNER 
0.1 14625 


2 

-1.660300 

-1.520340 

-1.193613 

-0.969295 

0.006518 

-0.760899 

0.238665 

0.085719 

-0.067790 


PRODUCT  OF 
-0.026002 


7 

-2.253387 

-3.553136 

-0.873423 

-7.121331 

-9.699039 

2.630947 

-1.917570 

-0.747369 

1.525358 


PRODUCT  OF 
0.153067 


3 

-9.669588 

-6.923861 

-2.564526 

-1.643203 

3.107385 

-6.987964 

0.242911 

-0.844650 

0.274805 


I .C. VECTOR 
-0.042400 


8 

0.208036 
0.627112 
1.522491 
-0.431824 
-0.060935 
0.966144 
0.178037 
— 0. 064476 
-0.159734 


I. C. VECTOR 
0.220529 


4 

11.489057 
-8.765269 
-1.099748 
3. 502732 
1.030842 
-6.571566 
-0. 536245 
1.910814 
0.226629 


WITH  EACH 
0.060118 


9 

1.024314 
0.904354 
0. 862869 
0.478090 
0.  172524 
0.839468 
0.667503 
0.416849 
0. 057599 


WITH  EACH 
0.373769 


5 

2.184258 
-0. 193936 
-0.934028 
-0.311309 
0.069738 
1.083282 
-0.249139 
-0.165340 
-0.170471 


EIGENVECTOR 

-0.083814 


10 

0.778071 
0.647328 
0.501992 
0.335299 
0.237031 
0.261745 
0.213944 
0.  116015 
0.055227 


EIGENVECTOR 

-0.872840 


uUHTUJq  MCH  2  3UJAV 


S  •  :  . 

.  v  !  .  - 

.  - 

-  i  I  IK  - 

. 

St  .  I 

■  !  \  •  — 

^  I  >  f  .  - 

i  \  i  \  I  .  - 


i  )  v *■  i o  i  , 

Aj  .0- 


>i 

i  \  \  v,  .  •. 

j  t  T  A  .  0 

. 

,  (  V 
MI'. 

tWM  l  ]  . 

a  i  o . )  i  I  . 

\  . 


I  J  !  -jo  i  ; 

•  .  - 


A 

\  C  '  V  -.11- 

.  . 

A\pv  .  f- 

. 

S  A,  0  60  .  I 

i  o  c  1  ,  •  0  - 

.  - 

a  j  b  u 1 1  .1 
*'SddSS  .0 


'  .  '  I  I  I  N 

no  .v 


9 

a  1  ^  j  •  I 

a  3  c  a  \  *  0 

i 

0  a  0  8  Y  A  •  0 

^  ■  i  .0 

■  m  0  .  0 

s 

9  A8p  I  A  .  1 
vH  <  \  i 


H  0  j  t  I  I  A 

<>\  t  Y  .0 


6 

i  '  .  - 
1  ..  6Sv  .6- 

.  i  - 

■  .  i  - 

n  e  s  *  s .  o 

a  0  -  A  \  S  .  0 


-  r  j .  v  .  j  .  I 

H  A3A(  .  - 


8 

66080 S.O 
SI  l\  Sd.O 
I ^  s  3  .1 

M8UA.0- 
•  .  - 
A  A  l  00  V  ,0 
Y60.M  1  .0 
^  A  *  .  — 

At  N  v  6  J  .0- 


,M  7  33V  .3.  1 
•  i  c  a  ... 


S 

00€  : )  dd .  I  - 

•  i  - 

t  I06PI  .1- 

.  - 

b  Ic'd  oe.o 
i .  - 

eoo8£S.o 

. 

•  .  - 


iu  T3uno*q 

s  .  - 


YH£6  es  .s- 
0£  1 1  2  0  .  £  - 
6SA£  Y8.o- 
I  I.T- 
OtOPPd.t  - 

\  •  • '  .  s 

0Y5Y  |9. i- 

9  M\  AY  .0- 

s  .  i 


i 

A .  - 
■  I68S.0- 
1YSIAS.0- 

veooA.o- 

\  SOdOi  .0 

\ eotos.o- 

1 1  8  I Y 0.0 
AS.O 
SO  I  003.0 


0 

sidHOO.O 

ooaoAe.o 

0  8  A  0  i  0  •  0  - 
RASSPI  .0 
OAOdit  .0 

of set t.o 

6ISS01 .0 
1  ^81  .0 
2YtM  IS.O 


2.3  j2,  II 
SAO.O 
£80.0 
esi  .o 

YOi  .0 

8  OS  .  0 

oes.o 

SPS.O 

£66.0 

2Y6.0 


2332,  UT 
SAO.O 
£60.0 
esi.o 

YOi  .0 
3  OS  •  0 

oes.o 

SPS.O 
£££  .0 
2Yt  .0 


3  r3l'!U>:3  H  I  032 1  JAMflOtf 

\ dot  51.0  eSdAJi.O 


M3^11  032  1  JAMWOl/l 
0PA1I0.0 


semi-logarithmic  least  square  fit  uf  results 


COLUMN  NUMBER^  10 


TIME, SECS 

EXPTL. VALUES  OF  Z 

LOGARITHMS 

Z-VALUES  FROM  FIT 

0.042 

0.77807100 

-0.250937 

0. 87100046 

0.083 

0.64732800 

-0.434902 

0.65158584 

0.125 

0.50199200 

-0.689171 

0.48400581 

0.  167 

0.33529900 

-1.092733 

0. 35952535 

0.208 

0.23703100 

-  1.439564 

0.26895694 

0.250 

0.26174500 

-1.340385 

0. 19978446 

0.292 

0.21394400 

-1.542041 

0.14840231 

0.333 

0.11601500 

-2.154036 

0. 11101813 

0.375 

0.05522700 

-2.896303 

0. 08246560 

GRID  SPACING 

EIGENVALUE 

SLOPE 

INTERCEPT 

DIFFUSI VI TY 

CM. 

0.0020480 

-0.022338 

-7.078863 

1.172572 

SO. CM/SEC 
0. 1 3292E-02 

Jd  T  <t  A  j  J  01  i  ;  • 


0  1  -1UJ00 


ii  i  do J / v - \ 

iaooj 

S  l  .  IAV .  JT9X 

aOd2,i  IT 

j  ■'.it 

tc< 

01  \  0 HN v.  o 

SAO.O 

A  <  1  c  o  .  u 

oOHsrv^d.o 

€«(  .0 

I  c  A  ♦  .  0 

.  .)- 

oos^?io?.o 

esi  .o 

c  ■  ■  . 

(IUVU.I- 

EC*  ) 

^  ai  .0 

. 

AO  i  •  t  A  .  i  - 

OGU  0  Y£ 's .  0 

80S  .0 

0  «♦>*;  U  0  i  .0 

.  i  - 

ooc  ay ias.0 

oes.o 

1  <  S  0  A  » A  i  •  0 

I  A  >  S  A  c  .  I  — 

OOAAPt 1 S .0 

ses. .  0 

UI  Ill. 

otU*H  1  .  S- 

o  o  c*  i  o  a  1 1  .o 

tii.o 

0  vc  -S' l  . 

t  otaob .  s;- 

OUV  S S  c*  c*  0 . 0 

£Yf  .0 

/  I  i  v  1  '"  HM 

I  M  -1 .  ■  >i  d  T  »  ] 

dcuue 

dUJAVUdOI J 

Ok I0AM2  31  HO 

.  . 

-  v  I  .  0 

S\  >  Y  i  •  i 

\  .  \  - 

aEf SSO.O- 

.^0 

06A0S00.0 

appendix  h 


INVERSE  PROBLEM  FOR  A  NON-HOMOGENEOUS  MEDIUM  HI 


Description  of  the  Problem 
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Sequences 

1.  For  a  given  first  set  of  X.C  and  times,  the  program 
makes  use  of  the  solution  to  forward  problem  to  calculate 
temperature  profiles  at  these  various  times.  This  is  called 
as  generation  of  data  for  inverse  problem. 

2.  The  program  calls  for  subroutine  NORMAL,  which 
normalises  the  temperature  vectors  and  determines  their 
lengths.  The  final  convergent  vector  is  stored  as  VECTA. 

3.  The  subroutine  LOGFIT  is  called  to  make  a  logarithmic 
fit  of  these  lengths  and  determines  an  eigenvalue. 

4.  A  second  set  of  LC  are  chosen?  some  more  data 
are  generated.  Subroutine  ELIMA  is  called  which  eliminates 
the  component  of  the  known  VECTA.  Subroutines  NORMAL  and 
LOGFIT  perform  the  routines  of  {2}  and  (3) .  The  final 

vector  is  stored  as  VECTB. 

5.  A  next  set  of  I.C  are  chosen?  data  generated? 
Subroutine  ELIMB  called  for  to  eliminate  VECTA  and  VELTB?  so  on. 
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6a  From  the  generated  eigenvalues  and  eigenvectors, 
the  coefficient  matrix  is  reproduced,  compared  with  the  orig¬ 
inal  and  an  error  matrix  is  formed. 

The  computer  program  and  results  follow. 
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SOURCE  STATEMENT 


FORTRAN  SOURCE  LIST 


INH-2 

ISN 


0  $  I BFTC  DARSI  NOOECK 
C 
C 

C  SOLUTION  TO  THE  INVERSE  PRGBLEM-NON-HCMOGENEOUS  MtDIUM 

C 

C  INPUT  DATA 

C  N  =  GR  ID  SIZE 

C  NT=NUMBER  OF  TIMES 

C  KZERO, Al, A2, DX,GZERO, TS-P ARAM E TER S 

C  PZ=INITIAL  CONDITION  VECTOR 

C  CI=BOUNDARY  CONDITION  VECTOR 

C  TIME  1  =  ACTUAL  VALUES  OF  TIME 

C 

C  SUBROUTINES  USED  ARE-E I G 1 , MA IN , NORMAL , LOGF I T , ELI MA , EL  IMB , 

C  EL  I  MC  »  EL IMD  »  AND  CHECK. 
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READ (5*2)  (PZ(J  ), J=1,N) 

RE AD ( 5  *  2 )  (Cl(J)»J=lfN) 

READ ( 5  »  3 )  (TIME1CJ) »  J=1 , NT ) 
DO  20  J=1,N 

A  J=  J 

DELX=DX/2.+( AJ- 1. )*DX 
VALUE=A2*DELX 

20  TK! J)=KZERO+VALUE 
DO  21  J=  1 , N 

DO  21  K= 1 , N 

21  S(J,K)=0.0 
N 1=N- 1 


DO  22  J=1,N1 
S< JfJ)=-(TK( J)+TK( J+l) ) 

S( J  ,  J  +  l  )  =  TK( J  +  l ) 

22  S( J+1.J)=S( JtJ+1) 

S(N,N)=-TK(N) 

DO  23  J  =  lf  N 
DO  23  K= 1 »  N 

23  S! J*K)=S( J,K)/(GZER0*UX**2) 

C  1 C  1 )  =TK (  1)*TS/!GZER0*DX**2) 

M AXN= 16 

M=N 

CALL  EIG1 (NfMAXN,M,S,R, V, A,  B,W 1*W2) 
WRITE(6,220) 

WR I TE ( 6*  224 ) 

WR I TE ( 6*  223 ) 

WRITE(6,235) 

WRITE! 6t  234 )  !C  1 ( J ) , J= 1 ,N  ) 

WR  I  TE (  6*  223 ) 

WR I TE ( 6 »  240 ) 

DO  31  J=1*N 

31  WRITE(6,241)  ( S ( J , K  )  , K= 1 , N ) 
WRITE(6,223) 

WRITE(6,242) 

WRITE(6,232)  (R(J)»J=ltN) 

WRITE! 6, 223) 

WR I TE ( 6»  243 ) 


DO  32  K=1,N 
WR I TE ( 6  *  232 ) 
32  WRITE<6,223) 
CALL  M A  I N ( N  » 
WRITE!6,220) 


(V  t  J,K ) , J=lt N) 

WORK ,VfCl»PZ»R»TIMEl»NT » P  ) 
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WRITE(6»246) 
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D0  34  J= 1  *  NT 

34  WRITE(6»25i)  TIME1(J)» !P!J»K>  *K— 1*5) 
WRITE(6,223) 

WR I TE ( 6*  257 ) 

DO  72  J= 1  *  NT 
DO  51  K= 1  *  N 
51  WORK ( K )  =  P ! J  »  K  ) 
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CALL  NORMAL! WORK, N, LENGTH! J) ) 

WRITE! 6, 258)  TIMEl! J) , LENGTH! J) , (WORK(K) 
72  CONTINUE 

CALL  LOGFIT ( T  IM E  1 , L ENGTH , DX , NT , 1 . 0 , SLOPE 
WR I TE ( 6 , 49 )  SLOPE 
CALC ( 1 )  =  SLOPE 
DO  52  J=  1 ,  N 

52  VECTA! J )=WORK! J ) 

RE AD ( 5 , 2 )  ( PZ  (  J  )  , J- 1 , N ) 

R  E AD ( 5  »  3 )  (TIMEl! J) , J=l,NT) 

CALL  M A I N ! N , WORK ,V,C1,PZ,R, TIMEl,  NT, P ) 

WR I TE ( 6, 220 ) 

NEX  =  2 

WR  I  TE ( 6 , 245 )  NE X 
WRI TE ( 6, 223 ) 

WRITE! 6, 246) 

WRITE! 6, 248) 

DO  35  J= 1 , NT 

35  WR I TE ( 6 , 251 )  T I  ME  1 ( J ) , ( P ( J , K ) , K= 1 , 5 ) 
WRITE! 6, 223) 

WRITE(6,257) 

DO  54  J= I ♦ NT 
DO  53  K= 1 ,  N 

53  WORK ( K )  =  P ( J , K ) 

CALL  ELIMA! WORK ,N, VECTA) 

CALL  NORMAL ! WORK , N, LENGTH ( J ) ) 

WRITE (6,258)  T I  ME  1  ( J ) , LENGTH ( J ) , (WORK(K) 

54  CONTINUE 

CALL  LOGFIT(TIMEi, LENGTH, DX, NT, 1.0, SLOPE 
WRITE(6,49)  SLOPE 
CAL  C ( 2 )  =  SLOPE 
DO  55  J -  1 , N 

55  VECTB ( J ) =WORK { J ) 

READ ! 5 , 2 )  (PZ(J),J=1,N) 

READ! 5, 3)  ( T  IME  1  ( J ) , 1 , NT ) 

CALL  MAIN! N, WORK, V,C1,PZ,R, TIMEl ,NT ,P ) 
WRITE (6, 220) 

NEX  =  3 

WRITE(6,245)  NEX 
WR  ITE ( 6, 223 ) 

WRITE! 6, 246) 

WRITE!6,248) 

DO  36  J= 1 , NT 

36  WRITE(6,251)  T I  ME  1  ( J ) , ! P ( J * K )  ,  K  =  1 , 5 ) 
WRITE! 6,223) 

WRITE(6,257) 

DO  57  1 , NT 

DO  56  K=  1 »  N 

56  WORK ( K ) =P ( J , K ) 

CALL  ELIMB ( WORK ,N, VECTA,  VECTB) 

CALL  NORMAL ( WORK, N, LENGTH! J ) ) 
WRITE(6,258)  TIMEl(J)fLENGTH(J ), (WORK(K) 

57  CONTINUE 

C/U.1-  LOGFIT(TIMEl,LENGfH,DX,Nr  ,1.0, SLOPE 
WRITE(6,49)  SLOPE 
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CALC ( 3)=SL0PE 
DO  58  J=lfN 

58  VECTC ( J ) =WORK { J ) 

READ ( 5 »  2 )  ( PZ ( J  ) , J= 1 *N  ) 

RE AD ( 5  »  3 )  ( T I  ME  1 ( J ) , J= 1 , NT ) 

CALL  MAI N ( N« WORK, V,  Cl , PZ,R, T1ME1 ,NT,P ) 

WR I TE ( 6 , 220 ) 

NEX  =4 

WR I TE ( 6 , 245 )  NEX 
WRITE(6,223) 

WR I TE ( 6 »  246 ) 

WR I T  E (  6, 248 ) 

DO  37  J=  1 , NT 

37  WR I TE ( 6  »  25 1 )  TI ME l ( J ) , ( P ( J , K ) , K= 1 , 5 ) 

WRITE(6,223) 

WR  ITE! 6,  257 ) 

DO  60  J=i,NT 
DO  59  K=i,N 

59  WORK ( K  )  =P ! J , K ) 

CALL  ELIMC! WORK ,N,VECT A, VECTB, VECTC ) 

CALL  NORMAL ( WQR K , N* LENGTH ( J ) ) 

WRITE! 6,258)  TI ME1 ( J ), LENGTH! J ) , ! WORK (K) ,K  =  1 ,N) 

60  CONTINUE 

CALL  LOGFIT! TIME  1,LENGTH,DX, NT ,1.0, SLOPE ,CEPT,DIFF) 
WRITE!6,49)  SLOPE 
CALC(4)=SL0PE 
DO  61  J= 1 , N 

61  VECTD ! J ) =WORK ( J ) 

READ (5,2)  (PZ(J),J=1,N) 

READ (5, 3)  ( T I  ME  1  ( J ) *  J= 1 , NT  ) 

CALL  MAIN(N,W0RK,V,C1,PZ,R, TIME1,NT ,P) 

WRITE! 6,220) 

NEX  =  5 

WR I TE ( 6, 245 )  NEX 
WRITE(6,223) 

WRITE! 6, 246) 

WR I TE ( 6 , 248 ) 

DO  38  J=  1  *  NT 

38  WRITE(6,251)  T I  ME  1 ( J ) , ( P ( J , K ) , K= 1 , 5 ) 

WRITE! 6, 223) 

WRI TE ( 6, 257 ) 

CO  63  J= 1 »  NT 
DO  62  K= 1 , N 

62  WORK ( K ) =P ( J , K ) 

CALL  ELI MD ( WORK ,N, VECT A, VECTB, VECTC , VECTD ) 

CALL  NORMAL(WORK,N, LENGTH! J ) ) 

WR I TE ! 6 , 258 )  TI ME  1 ( J ) , LENGTH ( J ) , ( WORK ( K ) , K= 1 , N ) 

63  CONTINUE 

CALL  LOGFIT! TIM  El, LENGTH, DX, NT ,1.0, SLOPE, CEPT,DIFF) 

WRITE(6,49)  SLOPE 

CALC ( 5 ) =SLOPE 

DO  64  K=  1 , N 

V ( K , 1 ) =VECT  A ( K) 

V(K,2)=VECTB(K) 

V(K,3)=V6CTC(K) 
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512 

VIK,  4)=VECTD(K) 

513 

64 

V ( K  »  5 ) =  WORK ( K ) 

515 

CALL  CHECK! V, CALC, N, W) 

516 

WRITE(6,220) 

517 

WR I TE { 6»  259 ) 

520 

DO  66  J=  1  ♦ N 

521 

66 

WR I TE ( 6  *  24 1 )  (W ( J,K) ,K=1,N) 

527 

CO  65  J= 1  ,  N 

530 

DO  65  K= 1 »  N 

531 

65 

W( J,K)=S( J,K)-W( J,K) 

534 

WR I TE ( 6*  223 ) 

535 

WR  I  TE ( 6 *  260 ) 

536 

DO  67  J=1,N 

537 

67 

WRI TE ( 6,241 )  (W ( J,K  )  , K  = 1, N) 

545 

CONTINUE 

546 

END 
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0  $  I BFTC  LOGFIT 

1  SUBROUTINE  LOGF  I  T ( AX , A Y , DX , NC ♦ E I G V A L , SLOPE ,CF PT , D  I  FF ) 

C 

C  THIS  SUBROUTINE  FITS  AX  AND  LOG (AY)  TO  A  STRAIGHT  LINE 

c 


2 

3 

4 
6 
7 

10 

12 

13 

14 
16 
17 
20 
22 

23 

24 
26 
27 

30 

31 

32 

33 

34 


REAL  AX ( 25  )  f  AY { 25 ) 

DO  114  J=1,NC 
114  A Y ( J  )  =  ALOG ( AY ( J ) ) 

SUM  1  =  0.0 
DO  100  J= I »  NC 

100  SUM1=SUM1+AX( J) 

SUM2=0.0 

CO  101  J= 1 »  NC 

101  SUM2=SUM2+AX( J)**2 
SUM3-0 . 0 

DO  102  J  =  1 »  NC 

102  SUM3=SUM3+AY(J) 

SUM4=0 . 0 

DO  103  J  =  1 »  NC 

103  SUM4=SUM4+AX( J)*AY( J) 

AN  =  NC 

SLOPE=( SUM  3* SUM 1-SUM4* AN ) / ( SUM  I«*2-AN* SUM2 ) 
CEPT=(SUM3*SUM2  — SUM4*SUM1 ) / ( AN*SUM2-SUM 1  * #2 ) 
CEPT=EXP ( CEPT ) 

DIFF= SLOPE*! DX**2)/E IGVAL 

RETURN 

END 
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FORTRAN  SOURCE  LIST 

SOURCE  STATEMENT 
$  I BFTC  NORMAL 

SUBROUTINE  NORM AL { WORK , N , VALUE ) 

THIS  SUBROUTINE  NORMALISES  THE  VECTOR  WORK  AND  CALCULATES 
ITS  LENGTH. 

REAL  WORK (  10) 

V ALUE=0. 0 
DO  5  L= 1 »  N 

5  VALUE=VALUE+WORK(L) *  *2 
VALUE=SQRT(VALUE) 

DO  6  L=  I  »  N 

6  WORK(L)=WORK(L) /VALUE 
RETURN 
END 
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0  $  I B F T C  EL  I M A 

1  SUBROUTINE  E L I M A ( WORK , N , VECT A ) 


C 

C 
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EL  I M A  ELIMINATES  VECTA  FROM  WORK. 

REAL  WORK { 16) , STORE! 16 )  , VECTA (  16 ) 

C0NST=0.0 

DO  1  J  =  1 1  N 

1  CONST=CONST+WORK( J)*VECTA(J) 

DO  2  J= 1 »  N 

STORE! J )=CONST* VECTA! J ) 

2  WORK! J )=WORK( J)-STORE( J ) 

RETURN 

END 
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FORTRAN  SOURCE  LIST 


SN  SOURCE  STATEMENT 

0  $  I BFTC  ELIMB 

1  SUBROUTINE  EL  I  MB ( WORK , N , VEC T A , VECTB ) 

C 

C  ELIMB  ELIMINATES  VECTA  AND  VECTB  FROM  WORK. 

C 

2  REAL  WORK ( 16) *  S  TORE ( 16) » VECT  A ( 16) » VECTB ( 16) 

3  CONST^O.O 

4  C0NST2=0 • 0 

5  DO  I  J- 1  *  N 

6  CONST2=CONST2+WORK( J)*VECTB(  J) 

7  I  CONST=CONST+WORK(J)*VECTA(J) 

11  DO  2  J=  1  ♦  N 

12  STORE ( J ) =CONST* VECT  A ( J ) +CONST2* VECTB ( J ) 

13  2  WORK! J)=WORK( J)-STORE( J) 

15  RETURN 

16  END 
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IBFTC  ELIMC 

SUBROUTINE  E L I MC ( WOR K , N , VEC T A , VE CTB , VECTC ) 

ELIMC  ELIMINATES  VECT  At  VECTB  AND  VECTC  FROM  WORK. 

REAL  WORK ( 16) , STORE! 16) ,VECTA( 16 ) , VECTB ( 16 ) , VECTC! 16) 

C0NST=0.0 

C0NST2=0 .0 

CONST3=0.0 

DO  1  J  =  1 » N 

C0NST2=C0NST2+W0RK! J)* VECTB (J) 
C0NST3=C0NST3+W0RK(J)*VECTC(J ) 

1  CONST=CGNST+WORK!J)*VECTA(J) 

DO  2  J=1,N 

STORE! J  )=CONST*VECTA( J ) +C0NST2*VEC TB  (  J )  +C0NST3* VECTC ( J ) 

2  WORK! J )  =  WORK( J)~ST0RE!  J ) 

RETURN 

END 
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FORTRAN  SOURCE  LIST 

ISN  SOURCE  STATEMENT 

I  0  $  I BFTC  ELIMD 

1  SUBROUTINE  EL  IM 0 ( WORK , N , VEC TA , VEC TB , VEC TC , VEC TD  ) 

C 

C  ELIMD  ELIMINATES  VECTA, VECTB, VECTC  AND  VECTD  FROM  WORK. 

C 

2  REAL  WORK (  16) , STORE!  16) ,V£CTA( 16 )• VECTB ( 16 ), VECTC ( 16 ) * VECTD ( 16 ) 

3  CONST=0.0 

4  CQNST2=0. 0 

5  CGNST3=0 . 0 

6  CON  ST4  =  0 • 0 

7  DO  1  J  =  1 1  N 

10  C0NST2=C0NST2+W0RK( J)*VECTB(J) 

11  CGNST3=C0NST3+W0RK ( J)*VECTC(J) 

12  C0NST4  =  CGNST4+W0RKt  J)* VECTD! J) 

13  1  CONST=CONST+WORK( J)*VECTA(J) 

15  DO  2  J  =  1 »  N 

16  STORE! J)=CONST*VECTA( J)+CGNST2*VECTB( J)  +C0NST3*VECTC ( J )  + 
1C0NST4*VECTD! J) 

17  2  WORK! J)=WORK( J)-STORE! J) 

21  RETURN 

22  END 
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PROGRAM  IS  BEING  ENTERED  INTO  STORAGE. 

SOLUTION  TO  THE  INVERSE  PROBLEM 
NON- HOMOGENEOUS  MEDIUM 


BOUNDARY  CONDITION  VECTOR 

O.COOO  -O.OCOO  -O.OCOO  -0.0000  -0.0000 


-7.222222 

4.027778 

0.000000 

0.000000 

o.ooocoo 


COEFFICIENT  MATRIX 


4.027778 

8.888889 

4.86111L 

O.OOOCOO 

O.OOOCOO 


0.000000 
4.861  11 L 
-10.555555 
5.694444 
0.000000 


O.OCOOOO 
O.OCOOOO 
5.694444 
-12.22 2222 
6.527778 


0.000000 
0.000000 
0. cooooo 

6.527778 

-6.527778 


EIGENVALUES 

-3.255099  -8.163303  -13.683781 


-0.319788 

-0.214814 

0.574464 

— 0 .666445 

-0.414723 

0.087755 


-0.368128 

0.565813 

0. 155713 

0.665320 

-0.278280 


IGENVECTORS 
—  0.47C94  3 

0.179765 

0.575440 

-0.312629 

0.563054 


-0.532264 

-0.252547 

0. 108818 

-0.396214 

-0.695  765 
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EXPERIMENT  NO 
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TIME 


TEMPERATURES  AT  GRID  POINTS 

IME 

1 

2 

3 

4 

5 

0.0 

l.COOOCO 

1.000000 

1.000000 

1.000000 

1.000000 

0.0 

0.865124 

0.987550 

0.999054 

0.999936 

0.999996 

0.1 

0.767541 

0.960562 

0.994379 

0.999282 

0.999906 

0.3 

0.556436 

0.833233 

0.943843 

0.982203 

0.993385 

0.6 

0.427721 

0.696950 

0.847394 

0.922348 

0.951862 

1.0 

0.347336 

0.586030 

0.737842 

0. 824046 

0.861355 

1.5 

0.287776 

0.491375 

0.626286 

0.705889 

0.741234 

1.9 

0.251730 

0.430905 

0.550621 

0.621787 

0.653540 

2.6 

0.200776 

0.344022 

0.440039 

0.497282 

0. 522870 

3.5 

0.150515 

0.257937 

0.329973 

0.372935 

0.392145 

4.5 

0.109317 

0. 1 87338 

0.239659 

0.270865 

0.284818 

5.5 

0.079397 

0.1 36064 

0.174065 

0.196730 

0.206864 

7.0 

0.049145 

0.084221 

0.107743 

0.121772 

0.  12804} 

8.0 

0.035694 

0.061170 

0.078254 

0.088443 

0.092999 

10.0 

0.018829 

0.032268 

0.041280 

0.046655 

0.049059 

LENGTH 

NORMALISED 

TEMPERATURE  VECTOR 

0.00 

2.2361 

0.447214 

0.447213 

0.447213 

0.05 

2.1729 

0.398135 

0.454476 

0.459771 

0.10 

2.1211 

0.361864 

0.452865 

0.468809 

0.30 

1.9612 

0.283723 

0.424860 

0.481260 

0.60 

1.7730 

0.241241 

0.393091 

0.477944 

1.00 

1.5587 

0.222840 

0.375980 

0.473378 

1.50 

1.3282 

0.216661 

0.369946 

0.471518 

1.90 

1.1687 

0.215385 

0.368690 

0.471121 

2.60 

0.9343 

0.214887 

0.368200 

0.470966 

3.50 

0.7007 

0.2148  19 

0. 368 133 

0.470944 

4.50 

0.5089 

0.214814 

0.368128 

0.470943 

5.50 

0.3696 

0.214814 

0.368128 

0.470943 

7.00 

0.2288 

0.214814 

0.368128 

0.470943 

8.00 

0.1662 

0.214814 

0.368128 

0.470943 

10.00 

0.0877 

0.214814 

0.368128 

0.470943 

EIGENVALUE^  -0. 

32182167 

0.447214 
0.460177 
0.471120 
0.500820 
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0.528683 
0.531449 
0.532013 
0.532232 
0. 532262 
0.532264 
0.532264 
0.532264 
0.532264 
0.532264 


0.447214 
0.460204 
0.471414 
0.506521 
0.536865 
0.552620 
0.558060 
0.559181 
0.559618 
0. 559678 
0.559682 
0.559682 
0.559682 
0.559682 
0.559682 
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TEMPERATURES  AT  GRID  POINTS 

ME 

1 

2 

3 

4 

5 

0.0 

1.000000 

1.000000 

1.000000 

-0.000000 

0.000000 

0.0 

0.863552 

0.964255 

0.801827 

0.190452 

0.031642 
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0.758801 
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0.633700 

0.544344 

0.384448 

0.282966 

0.4 

0.403923 

0 .544696 

0.502839 

0.403207 

0.337041 

0.5 

0.341179 

0.477456 

0.470247 

0.412712 

0.371586 

0.6 

0.294109 

0.426234 

0.443611 

0.415783 

0.392330 

0.7 

0.258518 

0.386688 

0.421205 

0.414316 

0.403333 

0.8 

0.231318 

0.355654 

0.401895 

0.409676 

0.407469 

0.9 

0.210251 

0.330841 

0.384893 

0.402852 

0.406785 

1.0 

0.  193668 

0.310596 

0.369643 

0.394558 

0.402743 

1.1 

0. 180372 

0.293720 

0.355749 

0.385307 

0. 396392 

TIME  LENGTH  NORMALISED  TEMPERATURE  VECTOR 


0.00 

1.3745 

0.562820 

0.445269 

0.366439 

-0.408100  -0.429122 

0.05 

1.1314 

0.566354 

0.514814 

0.276993 

-0.319609  -0.485114 

0.10 

0.9552 

0.564858 

0. 543662 

0.231 544 

-0.278982  -0.503908 

0.15 

0.8106 

0.564576 

0.556225 

0.209127 

-0.261885  -0.509460 

0.20 

0.6886 

0.565382 

0.561897 

0.197700 

-0.255078  -0.510358 

0.25 

0.5851 

0.566634 

0.564483 

0. 191514 

-0.252569  -0.509721 

0.30 

0.4972 

0.567950 

0.565640 

0. 187913 

-0.251785  -0.508702 

0.40 

0.3590 

0.570195 

0.566292 

0.184144 

-0.251747  -0.506858 

0.50 

0.2593 

0.571763 

0.566276 

0.  182305 

-0.252030  -0.505632 

0.60 

0.1872 

0.572782 

0.566150 

0.181284 

-0.252238  -0.504883 

0.70 

0.1352 

0.573425 

0. 566037 

0. 180685 

-0.252364  -0.504432 

0.80 

0.0976 

0.573825 

0.565956 

0.180325 

-0.252437  -0.504160 

0.90 

0.0705 

0.574072 

0.565903 

0.  180107 

-0.252481  -0.503995 

1.00 

0.0509 

0.574224 

0.565869 

0.179974 

-0.252507  -0.503894 

1.10 

0.0368 

0.574317 

0.565848 

0.179893 

-0.252522  -0.503833 

EIGENVALUE^  -3. 

26797200 
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TEMPERATURES  AT  GRID  POINTS 

ME 

I 

2 

3 

4 

5 

0.0 

I  .ooooco 

o.ocoooo 

0.000000 

-0.000000 

1.000000 

0.0 

0.710883 

0.139229 

0.045083 

0.212718 

0. 757208 

0.  I 

0.525441 

0.204232 

0.119085 

0.298747 

0.619943 

0.2 

0.403820 

0.235497 

0. 183359 

0.334740 

0. 536485 

0.2 

0.322722 

0.250361 

0.230467 

0.349921 

0.482837 

0.3 

0.267880 

0.256717 

0.262217 

0.355779 

0.446827 

0.3 

0.230281 

0.258420 

0.282319 

0.357  066 

0.421736 

0.4 

0.204109 

0.257484 

0.294169 

0.355895 

0.403597 

0.4 

0.185564 

0.255030 

0.300369 

0.353296 

0.389957 

0.4 

0.172140 

0.251708 

0.302779 

0.349823 

0.379254 

0.5 

0.162177 

0.247907 

0.302681 

0.345801 

0.370478 

0.5 

0.154566 

0.243864 

0.300942 

0.341430 

0.362970 

0.6 

0.148569 

0.239723 

0.298147 

0.336842 

0.356302 

0.6 

0.143687 

0.235572 

0.294681 

0.332123 

0.350192 

0.7 

0.139587 

0.231461 

0.290803 

0.327332 

0. 344458 

TIME  LENGTH  NORMALISED  TEMPERATURE  VECTOR 


0.00 

1.1812 

0.671487  -0.275146 

-0. 319530 

-0. 333935 

0.509694 

0.05 

0.7489 

0.684651  -0.234056 

-0.433523 

-0.237478 

0.481801 

0.10 

0.4902 

0.683484  -0.205534 

-0.496443 

-0.178801 

0.460630 

0.15 

0.3243 

0.679483  -0.187433 

-0. 530678 

-0. 145691 

0.447579 

0.20 

0.2153 

0.675877  -0.176209 

-0. 549554 

-0. 127620 

0.440277 

0.25 

0.1431 

0.673197  -0.169223 

-0.560150 

-0. 117966 

0.436446 

0.30 

0.0951 

0.671309  -0.164807 

-0.566204 

-0.112921 

0.434563 

0.35 

0.0632 

0.669990  -0.161955 

-0.569725 

-0. 110364 

0.433724 

0.40 

0.0420 

0.669064  -0.160070 

-0.571812 

-0.109129 

0.433421 

0.45 

0.0279 

0.668405  -0.158795 

-0.573073 

-0.108582 

0.433377 

0.50 

0.0186 

0.667931  -0.157914 

-0.573853 

-0.  108384 

0.433447 

0.55 

0.0124 

0.667586  -0.157293 

-0.574347 

-0. 108354 

0.433558 

0.60 

0.0082 

0.667332  -0. 156848 

-0. 574668 

-0. 108398 

0.433674 

0.65 

0.0055 

0.667145  -0 . 156525 

-0.574881 

-0. 108467 

0.433780 

0.70 

0.0036 

0.667004  -0.156287 

-0.575028 

-0.  108541 

0.433869 

E  IGEN VALUE=  -8.2II36008 
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EXPERIMENT  NO 


TEMPERATURES  AT  GRID  POINTS 

ME 

l 

2 

3 

4 

0.0 

0.000000 

1.000000 

-0.000000 

-0.000000 

0.0 

0.068757 

0.844000 

0.086568 

0. 113331 

0.0 

0.136979 

0.675733 

0.183185 

0.232191 

0.1 

0.176942 

0.562702 

0.250362 

0.309082 

0.1 

0.203686 

0.466922 

0.308729 

0.370781 

0.2 

0.213369 

0.409459 

0.343764 

0.404453 

0.2 

0.214349 

0.374184 

0.364181 

0.422038 

0.2 

0.211170 

0.351749 

0.375418 

0.430322 

0.3 

0.206242 

0.336753 

0.380867 

0.433188 

0.3 

0.200795 

0.326081 

0.382649 

0.432878 

0.4 

0.195423 

0.317940 

0.382098 

0.430695 

0.4 

0. 190379 

0.311300 

0.380058 

0.427401 

0.4 

0.185743 

0.305570 

0.377068 

0.423449 

0.5 

0.182534 

0.301659 

0.374415 

0.420217 

0.5 

0.179540 

0.297979 

0.37  1524 

0.416840 

5 

1.000000 
0.885028 
0. 759458 
0.673239 
0. 597646 
0. 549946 
0.518849 
0.497727 
0.482659 
0.471299 
0.462235 
0.454608 
0.447891 
0.443250 
0.438845 


TIME 

0.00 

LENGTH 

1.0287 

-0.408343 

NORMALISED  TEMPERATURE 
0.648123  -0.280429  -0.435542 

VECTOR 

0.380600 

0.02 

0.7822 

-0.409089 

0.650254  -0.284364 

-0.430957 

0.378444 

0.05 

0.5186 

-0.410020 

0.652945  -0.289395 

-0.425066 

0.375653 

0.08 

0.3439 

-0.410767 

0.655137  -0.293545 

-0.420155 

0.373320 

0.12 

0. 1989 

-0.411544 

0.657446  -0.297974 

-0.414869 

0.370799 

0.16 

0.1151 

-0.412131 

0.659216  -0.301407 

-0.410740 

0.368822 

0.20 

0.0666 

-0.412577 

0.660575  -0.304071 

-0.407517 

0.367276 

0.24 

0.0385 

-0.412917 

0.661624  -0.306141 

-0.405002 

0.366067 

0.28 

0.0223 

-0.413177 

0.662435  -0.307753 

-0.403037 

0.365122 

0.32 

0.0129 

-0.413376 

0.663064  -0.309011 

-0.401501 

0.364384 

0.36 

0.0075 

-0.413526 

0.663553  -0.310000 

-0.400297 

0.363807 

0.40 

0.0043 

-0.413635 

0.663936  -0.310784 

-0.399349 

0.363358 

0.44 

0.0025 

-0.413708 

0.664237  -0.311415 

-0. 398599 

0.363006 

0.47 

0.0017 

-0.413738 

0.664417  -0.311818 

-0.398139 

0.362803 

0.50 

0.0011 

-0.413743 

0.664577  -0.312173 

-0. 397743 

0.362632 

E IGENVALUE=  -13.67893520 
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IME 

TEMPERATURES  AT  GRID  POINTS 

1  2  3 

4 

5 

0.0 

0.000000 

-0.000000 

1.000000 

-0.000000 

1.000000 

0.0 

0.003290 

0.080630 

0.824910 

0.200130 

0.890966 

0.0 

0.01 1140 

0.135689 

0.705650 

0.331 794 

0.815211 

0.1 

0.021364 

0.173672 

0.624013 

0.417615 

0. 761789 

0.1 

0.032596 

0.200235 

0.567767 

0.472768 

0. 723366 

0.1 

0.043996 

0.219137 

0.528687 

0.507433 

0.695032 

0.1 

0  .055069 

0.232878 

0.501239 

0.528435 

0.673497 

0.  1 

0.065542 

0.243117 

0.481692 

0.540350 

0.656562 

0.2 

0.075275 

0.250954 

0.467529 

0.546245 

0.642756 

0.2 

0.084220 

0.257121 

0.457048 

0.548174 

0.631097 

0.2 

0.092377 

0.262103 

0.449097 

0.547511 

0.620927 

0.2 

0.099775 

0.266223 

0.442891 

0 • 545 i 74 

0.611809 

0.2 

0.106461 

0.269696 

0.437897 

0.541777 

0.603450 

0.3 

0.112489 

0.272668 

0.433747 

0.537725 

0.595653 

0.3 

0.117913 

0.275237 

0.430191 

0.533290 

0. 588289 

TIME 

LENGTH 

NORMALISED  TEMPERATURE 

VECTOR 

0.00 

0 .9002 

0.088514 

-0.279594 

0.563739 

-0.694959 

0.336485 

0.02 

0.6035 

0.088512 

-0.279592 

0.563739 

-0.694960 

0.336486 

0.04 

0.4046 

0.088512 

-0.279591 

0. 563738 

-0.694961 

0. 336486 

0.06 

0.2712 

0.088512 

-0.279590 

0. 563738 

-0.694961 

0 • 336486 

0.08 

0.1818 

0.088513 

-0.279592 

0.563738 

-0.694961 

0.336485 

0.  10 

0.1219 

0.088517 

-0.279596 

0.563739 

-0.694959 

0.336483 

0.12 

0.0817 

0.088525 

-0.279605 

0.563742 

-0.694954 

0.336479 

0.14 

0.0548 

0.088540 

-0.279623 

0. 563748 

-0.694944 

0.336471 

0.16 

0.0367 

0.088564 

-0.279654 

0. 563758 

-0.694927 

0.336457 

0.18 

0.0246 

0.088605 

-0.279707 

0.563776 

-0. 694897 

0.336433 

0.20 

0.0165 

0.088670 

-0.279793 

0.563807 

-0.694849 

0.336392 

0.22 

0.0111 

0.088774 

-0.279930 

0.563855 

-0.694772 

0.336329 

0.24 

0.0074 

0.088933 

-0.280148 

0.563933 

-0.694650 

0.336227 

0.26 

0.0050 

0.089180 

-0.280487 

0. 564059 

-0.694458 

0.336066 

0.28 

0.0033 

0.089559 

-0.281008 

0. 564254 

-0.694160 

0.335817 

E  I GENVALUE  =  -19. 9952  2  52  8 
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247924 

4.032952 

0.002045 

0.023639 

-0.018400 

032952 

-8.910943 

4.881922 

-0.019982 

0.012474 

002045 
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-10.591453 

5.688623 

0.019685 
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-0.019982 

5.688623 

-12.195157 

6.5091 19 

018400 

0.012474 
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-6.529837 

ERROR  MATR 
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0.005821 
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APPENDIX  CL 

Listings  of  the  Various  Subroutines 

The  subroutines  listed  in  this  appendix  are: 

1.  EIG  1 

2 .  JACOBI 

3 .  CHECK 

4 .  INTERP 

5.  LINEAR 

6.  MAIN 

7 .  MODIFY 

8 .  PLOT 

9 .  ANALYT 

10 .  LESQFT 

11.  LINECT 

"Comment  cards"  added  to  these  various  subroutines 
explain  the  purpose  of  these  programs  and  the  way  to  use 


them. 
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SUBROUTINE  EIG  1 

Calling  Sequence:  CALL  EIG  1  (N,  MAXN,  M,  S,R,V,A,B,  Wl,  W2) 

N  Order  of  the  input  square  symmetric  matrix  S.  Range  1^.N^.MAXN 


MAXN 

Maximum  order  N  may  attain,  i.e.,  the  value  in  the 

dimension  statement  of  the  main  program  for  the 

matrix  S.  Therefore  the  upper  bound  on  solution 

size  is  determined  by  space  requirements  in  the  main 

program,, 

M 

The  absolute  value  of  M  indicates  the  number  of 

eigenvectors  to  be  calculated,  where  O^.M^.N.  The 

** 

ordering  of  the  eigenroots,  to  which  the  calculated 

eigenvectors  will  correspond,  is  determined  by  the 

sign  of  M  as  follows: 

M>+  0:  Eigenroots  arranged  in  order  to  descending 

absolute  value. 

M<;-  0:  Eigenroots  arranged  in  order  of  ascending 

absolute  value. 

S 

Input 

S (MAXN,  MAXN)  is  the  input  symmetric  matrix.  Al¬ 
though  partially  used  for  temporary  storage,  S  is 

restored  to  its  original  value  before  leaving. 

R 

Output 

Column  vector,  length  at  least  N,  for  calculated 

V 

eigenroots . 

V(MAXN,L) ,  where  L  M,  is  the  matrix  for  calculated 

eigenvectors . 
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A  Column  vector,  length  at  least  N,  for  calculated 

diagonal  of  tri-diagonal  matrix. 

B  Column  vector,  length  at  least  N,  where  B(2)  through 

B(N)  will  contain  the  calculated  off  diagonal  of  the 
tri-diagonal  matrix. 

Working  Space 

Wl)  (Column  vectors,  each  of  length  at  least  N,  for 

W2)  (temporary  storage. 
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FORTRAN  SOURCE  LIST 


JBROUTINE  LISTINGS 
>N  SOURCE  STATEMENT 

0  $  I BFTC  EIG1 

1  SUBROUTINE  E I G1 ( LP • NM f M , R , E , V . A , B , W 1 , W2 ) 

2  s  DIMENSION  R(20)  ,E( 10) ,V( 10) ,A( 10) ,B( 10) ,Wi (10) ,W2( L 0 ) 

3  I F ( LP-1  )20,  14,4 

C  TRI-DI AGONALIZE  MATRIX 

4  4  CALL  TRIDI  ( LP,NM,R, A,B,wl ,W2) 

C  FIND  EIGENVALUES 

5  CALL  EIGVAL(LP,NM,M,E,A,B,Wl,W2) 

6  I  F  (  M  )  5 , 9  *  5 

C  FIND  EIGENVECTORS 

7  5  K= I ABS ( M ) 

LO  J=1 


II 

DO  7  1=1, K 

12 

CALL  EIGVEC(LP,NM,R,A,B,E( I ) ,V( J) ,W1,H2) 

13 

7 

J  =  J  +  NM 

C 

RESTORE  INPUT  MATRIX 

15 

9 

NM 1  =NM+ 1 

16 

J J=NM1 

17 

L  P  2  =  L  P  frNM 

20 

CO  12  I=2,LP2,NM1 

21 

K=  I 

22 

DO  10  J= J J , LP2, NM 

23 

R ( K ) =R ( J  ) 

24 

10 

K  =  K  + 1 

26 

12 

J J= J J+NM1 

30 

GO  TO  20 

c 

SOLUTION  FOR  ORDER  1 

31 

14 

E  (  1 ) =R (  1  ) 

32 

V(  1 )  =  1  •  0 

3  3 

All) =R ( 1 ) 

34 

B (  1  )=0.0 

35 

20 

RETURN 

36 

END 

:  .  ► 


T  1  .1  1  ,  .  A  I 


20  I  T2  1  J  ITU 

M  TAT 2  33  *JQ 


1313  3T30U 


(  ,|  ,  ,  ,  ,  J  ,  >!  ,  ,  .  ,  (l  !  )  [  '  I  i  ■  >  •  •  ' 

(  i  ,  (  r  j  )  •  *  (  i  r  .  (  ;)■»»«  j  •  i  2  *  1 

a  »  a  i  i  s  (  -  j  )  1 1 

V  |  I  •  U  J  l  -  1 

(  \  ,1  ,  J  )  I  1 1  f  I  3 

2  ; J  IAV  30 1 J  1  H 

(  i  , ,  I  ,  ,  *  ■  f  ,  ,  n  i )  j.  vo  i  .3  i  j 

(SC,  (  )  3 1 

2  r  v  1013  i  1  i 


A 


D 


cf 


i  \  >  ;  <\  I  •  ■» 


\  1 


I=t.  oi 

>1,1  =  1  T  00  if 

(SW,i*w  ill  ,  01  »  J  « <3  ,  A ,  n,  W,4J>OJVOI  i  UaO 

*1-1  f 

X  I  :  r A  i  si  1  «  IT 2 3 

I  *  =  <J  ! 


Lt 

At 

-  *4.1=  ij 

\  i 

IS  .  S  3  J  ,  \  1  SI  1  ■ 

OS 

1  =x 

19 

...  ASM  !  -1  OJ  ):j 

ss 

(  L  )  (  ) 

it 

1 1  *  -  x 

01 

[  '  /  !  ►  U  -  L  L 

CS  OT  03 

SI 

I  ■  i  >H  i  IT  JI  TU  Ju2 

{  f  ! M= (  1  ) 

A I 

0  *  I  =  C  (  )  v 

U  )  M  =  (  I) 

fl 

.  j  =  c  n  » 

>i  u  r  p 

OS 

aM 

00  i 

UBRCUT I NE  LISTINGS 
SN  SOURXE  STATEMENT 


FORTRAN  SOURCE  LIST 


0  $  I QF  TC 
C 
C 
C 

c 

c 

1 

2 

3 

4 

5 

6 


TRIDI  DECK 

TRIDIAGONAL IZAT ION  SUBROUTINE 

RETURN  ORIGINAL  R  IN  UPPER  TRIAN  HALF  INCLUDING  DIAGONAL 

RETURN  MODIFIED  W  MATRICES  IN  LOWER  HALF  OF  R  MATRIX 

RETURN  NEW  DIAGONAL  IN  A 

RETURN  NEW  FIRST  OFF  DIAGONAL  IN  B 

SUBROUTINE  TR ID  I ( LP , NM , R , A , B , W f Q ) 

DIMENSION  R  (  1 0 )  ,A(10),B(10),Q(  LO) ,W( 10) 

LP1=LP-1 
LP2  =  LP  i*NM  +  LP 
LPP=LP2— NM 
NM 1=NM+ 1 

STURE  ORIGINAL  DIAGONAL 
L  =  0 


10 

DO  10  I=1,LP2,NM1 

1 1 

L=  L  + 1 

12 

10 

A ( L ) =R {  I  ) 

14 

B (  1  )  =0 . 

15 

IF(LP-2)S9,65, 15 

16 

15 

KK  =  0 

17 

DO  50  K=  2  *  L  P  1 

20 

K  L  =  K  K  +  K 

21 

KU  =  KK  +  L  P 

22 

KJ=K+1 

C 

CALCULATE  AND  STORE  MODIFIED  COLUMN  MATRIX  W 

23 

SUM=0 • 0 

24 

DO  20  J=KL,KU 

25 

20 

SUM=SUM+R{ J ) 2 

27 

S^  SORT ( SUM ) 

30 

RR=— R ( KL ) 

31 

8 { K  )  =  S I GN  ( S  »  RR ) 

32 

S=l./S 

33 

W ( K  )=SQRT( ABS(R (KL)  )*S+1.0) 

34 

X=S  I GN  (S/W(K),R(KL)  ) 

35 

RIKL  )=W( K ) 

36 

DO  30  I=KJ,LP 

37 

JJ=  I+KK 

40 

W(  I  )=X*R( JJ) 

41 

30 

R( JJ)=W( I ) 

C 

MOVE  NEW  R  MATRIX  WITH  ROW  K-U  NOW  HAVE  3  OFF  2ND  DIAG 

43 

DO  35  J  =  K  *  LP 

44 

J J  =  J+  1 

45 

Q ( J  )  =0 . 0 

46 

L=KK  +  ,J 

47 

DO  33  I =K  »  J 

50 

L  =  L  +  NM 

51 

33 

Q ( J )=Q ( J ) +  R ( L ) * W (  I  ) 

53 

IF( JJ-LP) 34,34, 36 

54 

34 

DO  35  I  =  J  J  t  L P 

55 

L  =  L  + 1 

56 

35 

Q( J  )=Q( J ) +R( L )*W( I ) 

61 

36 

X  =  0 . 0 

62 

DO  40  J  =K  »  L  P 

63 

40 

X  =  X  +W ( J ) «Q ( J  ) 

65 

X=. 5*X 
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SN 

SOURCE  STATEMENT 

66 

CO  45  I=K,LP 

67 

45 

Q (  I )=X*W< I ) — Q ( I  ) 

71 

LL  =  KK 

72 

KK=KK+NM 

73 

DO  50  I  =  K  »  L  P 

74 

LL  =  LL  +  NM 

75 

DO  50  J  =  I  *  L  P 

76 

L=LL+J 

77 

50 

R(L)=R(L)+Q( I )*W(J)+Q(J)*W( I ) 

C 

SORT  OUTPUT 

03 

L=  1 

04 

DO  60  I  =  L  *  LP 

05 

X- A (  I  ) 

06 

A (  I  )  =R ( L ) 

07 

R ( L )=X 

10 

60 

L  =  L  +NM 1 

12 

65 

B( LP  )=R( LPP ) 

13 

99 

RETURN 

14 

END 
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FORTRAN  SOURCE  LIST 
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SN  SOURCE  STATEMENT 


0  SIBFTC  EIGVAL  DECK 

C  EIGENVALUE  SUB  FOR  TRI-DIAGONAL  MATRICES 

1  SUBROUTINE  EIGVAL(LP,NM,M,E,A,B,F,W) 

2  DIMENSION  E ( 1 0 )  , A ( i 0 ) , B ( 1 0 )  , F ( 10 ) , W ( 1 0 ) 

3  EQUIVALENCE  ( SI , I  SI ) , ( S2, IS2 ) 

C  FIND  UPPER  AND  LOWER  BOUNDS  AND  NORMALIZE  INPUT 

4  BD= ABS ( A (  I )  ) 

5  DO  5  1=2, LP 

6  5  BD=AMAX1 ( BD,ABS(A( I )  )+B{ I )**2) 

10  BD=  BD+ 1 . 

11  DO  6  1  =  1,  LP 

12  A  (  I  )  =  A  (  I  )  /  B  D 

13  B(I)=B(I)/BD 

14  W(I)=1. 

15  6  E ( I )=-l. 

17  DO  50  K=  I , L P 

20  8  I  F  (  (W(K)-E(K)  J/AMAXK  ABS  (W(K)),ABS  (  E  (  K  )  )  ,  I  .  OE-9  ) -1 .  OE-7  )  50 , 50 , 10 

21  10  X=(W(K)+E(K) )  *.  5 


C 

22 

23 

24 

25  102 

26 
27 

30  104 

31 

32  105 

33 

34  106 

35  107 

36  110 

37 

40  112 

41 

42  113 

43 

44  114 

45  115 

46 

47  116 

50 

51  117 

52  120 
C 


FIND  NUMBER  OF  E I  GEN VALUE S , N ,  GTR  THAN  OR  EQUAL  TO  X 
I S  2  =  1 

F  (  1  )  = A ( 1 )-X 
I F ( F (  1  )  ) 102,  104, 104 
I S 1=— 1 
N  =  0 

GO  TO  105 
IS1  =  1 
N=  1 

DO  120  I  =  2  *  L  P 

I F ( B ( I ) ) 106, 113 , 106 
I F ( B ( I— 1 ) ) 107 ,114,107 

IF ( ABS  ( FI  1-1 ) ) + ABS  (F ( 1-2) J-l.OE-15) 110,112,112 
F ( I  —  1  ) =  F (  1-1 )*1 .0E15 
F ( 1—2 ) =F ( I-2)*l .0E15 
F( I )=( A( I )-X)*F( I— 1 ) — B ( I )**2*F (1-2) 

GO  TO  115 

F (  I )  =  ( A(  I )-X)*SIGN  (  l.,Sl) 

GO  TO  115 

F { I )=( A ( I )-X)*F( 1-1 J-SIGN  ( B ( I )**2,S2) 

S2=  S  1 

IF( F( I )) 116, 117,116 
S 1  =  S I GN  ( S  1 , F ( I  )  ) 

I F ( IS2+IS1) 117, 120, 117 

N=N  + 1 

CONTINUE 

TRAP  EIGENVALUES  IN  SMALLER  AND  SMALLER  BOUNDS 


54 

55 

56 

57 
61 
62 

63 

64 

65 
67 


N  =  L  P— N 

IF( N-K ) 20, 12, 12 
12  DO  15  J=K,N 
15  W( J  )  =  X 
20  N  =  N  +  1 

I F ( LP— N ) 8 , 24, 24 
24  DO  26  J=N,LP 

I F ( X-E ( J  )  ) 8 , 8 , 2  6 
2  6  E ( J ) =  X 
GO  TO  8 
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70 

72 

73 

74 

75 
77 
00 
01 
02 
03 
04 
05 
06 
0  7 
10 
12 

13 

14 
16 
17 
20 
21 

23 

24 

25 


50  CONTINUE 

RESTURE  INPUT  AND  ORDER  EIGENVALUES 
DO  60  1=1, LP 
A (  I  )  =  A ( I ) *BD 
B (  I  )  =B ( I ) » BD 

60  F(  I  )  =  (W(  I )+E( I )  )  *BD»  •  5 
J  =  LP 
K=  1 

DO  70  1=1, LP 

I  F  (  ABS  ( F ( K )  ) -A  B S  ( F ( J )  ) ) 63 , 63 , 65 
63  E(  I  )=F( J) 

J  =  J-1 
GO  TO  70 
65  E (  I )=F ( K  ) 

K=  K  + 1 

70  CONTINUE 

I F (  ISIGN  (  1,M) ) 75,80,80 
75  D0  77  1=1, LP 
77  F (  I  )  =  E ( I ) 

J  =  LP 

DO  79  1=1, LP 
E {  I  )=F ( J  ) 

79  J= J-l 

80  CONTINUE 
RETURN 
END 
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UBRCUTINE  LISTINGS  FORTRAN  SOURCE  LIST 

SN  SOURCE  STATEMENT 

0  $  I 3F TC  EIGVEC  DECK 


1 

SUBROUTINE  EIGVEC  ( L P , NM , R , A , B , E , V » P , Q ) 

2 

C 

D I  MENS  ION  R ( 1 0 )  ,A(10),B(10),V(  10),P(10),Q(10) 

SETUP  SIMULTANEOUS  EQN  FOR  EGENVECTOR  WITH  EIGNVALUE 

3 

X=  A { 1 )  — E 

4 

Y  =  B  (  2  ) 

5 

LP1=LP-1 

6 

DO  10  1=1,  LP1 

7 

IF  (ABS  (X)-ABS  (B(  1  +  1  )  )  )4,6,6 

10 

4 

P ( I )=B ( I +1 ) 

11 

Q (  I  )  =A ( 1  +  1 )  —  E 

12 

VII  )  =  B(  1  +  2) 

13 

Z=-X/P ( I ) 

14 

X=  Z  *Q (  I ) +  Y 

15 

IF ( LP 1— I )5,  10,5 

16 

5 

Y=Z*V(  I  ) 

17 

GO  TO  10 

20 

6 

I F  (  X  )  8 , 7 , 8 

21 

7 

X=  1 . OE— 10 

22 

8 

P  (  I  )  =  X 

23 

Q (  I  )  =Y 

24 

V( I  )  =0 • 

25 

X  =  A ( 1  +  1  )-( B{  I  +  l  ) / X* Y  +  E ) 

26 

Y=B ( 1+2) 

27 

C 

10 

CONTINUE 

SOLVE  SIMULT  EQN  FOR  EGENVECTOR  OF  TRI-DIAG  MATRIX 

31 

20 

IF(X) 21, 28*21 

32 

21 

V(  LP  )=1./X 

33 

22 

I  =  L  P  1 

34 

V(I)=(1.-Q(I)*V(LP) )/P(I) 

35 

X  =  V ( LP ) **2  +  V{  I ) *  *2 

36 

25 

1=1-1 

37 

I F ( I )26, 30,26 

40 

26 

V<  I  )  =  ( l.-(Q(  I  )*V(  1  +  1  )+V( I )*V( 1+2) ) ) /P( I ) 

41 

X  =  X+V(  I  )  **2 

42 

GO  TO  25 

43 

28 

V ( L  P )  =  1 • OE  10 

44 

GO  TO  22 

45 

30 

X=  SORT  (X) 

46 

DO  31  1=1, LP 

47 

C 

31 

V (  I  )  =V (  I  )  /X 

TRANFORM  EIGENVECTOR  TU  SOLN  OF  ORIGNAL  MATRIX 

51 

J=LP1*NM-NM 

52 

K=L  P 

53 

GO  TO  42 

54 

32 

K  =  K—  1 

55 

J= J— NM 

56 

Y  =  0.0 

57 

DO  35  I  =  K , L  P 

60 

L=  J  + 1 

61 

35 

Y  =  Y  +  V (  I ) *R ( L  ) 

63 

DO  40  I  =K , LP 

64 

L  =  J  +  I 

65 

40 

V (  I  )  =  V (  I )-Y*R(L  ) 

67 

42 

IF(J)32,44,32. 
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FORTRAN  SOURCE  LIST 


UBROUTINE  LISTINGS 
SN  SOURCE  STATEMENT 

0  $  I BFTC  JACOBI 

1  SUBROUTINE  JACOB  I ( N , MATR I  X , VEC TOR , TOLERC , NORM ) 

C 

c 

C  JACOBI  EVALUATES  THE  EIGENVALUES  AND  EIGENVECTORS  OF  A 
C  SYMMETRIC  MATRIX.  THIS  PROGRAM  WAS  WRITTEN  BY  MR. G. R . JACKSON 
C  DEPT. OF  COMPUTING  SCIENCE, U. OF  A, EDMONTON. 

C 

C  INPUT  DATA 

C 

C  N=GRDER  OF  THE  MATRIX. 

C  MATR I X=THE  MATRIX  ITSELF 

C  VECTOR=MATR IX  OF  EIGENVECTORS 

C  TOLERC=TOLERENCE  L IM I T ,  INTERNALLY  SET  IF  NOT  SPECIFIED. 

C  NORM=SPECIF IES  THE  TYPE  OF  NORMALISATION  OF  THE  EIGENVECTORS 

C  IF  THIS  IS  2, ORTHONORMAL  EIGENVECTORS  ARE  OBTAINED. 

C 

C 

2  DOUBLE  PRECISION  S I NE , COS INE , T S I , TS2 , L AMD A , MU , OMEGA , TOLERC , 

1  MATR I X( 25,25)  , VECTOR  I  2 5 , 2 5 ) ,TS3 

3  INTEGER  I , J , P , Q , N , NM  1 , PP 1 , DONE ,NORM 

4  I F ( TOLERC  . EQ.O . OOOOOOOOOOOO )  TOLERC  =0.0000000000001 

7  N  M 1  =  N—  i 

10  DO  1  1=1, N 

11  DO  1  J  =  1 ,  N 

12  VECTOR! I ,J )=0. 000000000000000 

13  1  IF(I.EQ.J)  VECTOR! I ,  I)  =  l. 000000000000000 

20  2  D0NE=0 

21  DO  5  P=1,NM1 

22  PP1=P+1 

23  D0  5  Q  =  P  P  1  ,  N 

24  IF( DABSIMATRIXI P,Q) ).LE. TOLERC)  GO  TO  5 

27  DONE=i 

30  LAMDA=— MATRIX! P  »Q) 

31  MU=  .5000C 000 COO 00000* (MATRIX(P,P)-MATRIX(Q,Q)) 

32  OMEGA=LAMDA/DSQRT(LAMDA*LAMDA+MU*MU> 

33  IF! MU. LT. 0.0 000 0000 0000 COO)  OMEGA=-OMEGA 
S I NE=UMEG A/ DSQRT! 2.000000000000000+2.000000000000000* 

DSQRT ( 1 • OOOOOCOOOOOOOOO-OMEG A*OMEG A ) ) 

COS INE =DSQRT( 1. 00 00 000 00000000- SINE *S INE ) 

DU  4  I  =  1 »  N 

IF!  I.EQ.P.OR.I.EQ.Q)  GO  TO  3 
TS1=C0SINE*MATRIX(P, I ) -S I NE*MA TR I  X ( Q , I ) 

TS2=SINE*MATRIX (P, I )+COSINE*MATRIX!Q» I ) 

MATRIX ! P, I  )  =  T S 1 
MATRIX (Q,  I  )=TS2 
MATRIX!  I  , P ) =TS1 
MATRIX! I , Q ) =TS2 

TS1  =  VECT0R!  I, P)*COSINE- VECTOR! I  ,Q ) *SI NE 
TS2  =  VECTOR! I  ,P) *SINE+VECTOR( I, Q)* CO SINE 
VECTOR ( I ,P)=TS1 

TS 1  =  MATR ! X ( P ,P) *COS I NE*COS I NE- 2. 000000000000000*MATR I  X ( P,Q) 
COSINE*SINE  +  MATRIX(Q,Q)*SINE*SINE 
TS2=MATRIX(P»P) *SINE*SINE  +  2.COOOOOOOOOOCOOO*MATRIX(P»U)* 
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iUBROUT I NE  LISTINGS 
ISN  SOURCE  STATEMENT 

I  COSINE *STNE  +  M ATR I  X ( Q , Q ) *COS I NE *COS I NE 

TS3=!MATRIX! P,P ) -MA TR I  X ( Q , Q ) ) * S I NE *COS I NE  +  MATRIX(P,Q) 
1  ( COSINE*COSINE-SINE*SINE ) 

62  MATR I  X ! P , P ) =TS1 

63  MATRIX(Q,Q)=TS2 

64  MATRIX! P,Q)=TS3 

65  MATRIX(Q,P)=TS3 

66  5  CONTINUE 

71  I F ( DONE . NE • 0 )  GO  TO  2 

74  I F ( NORM*  NE . I )  GO  TO  8 

77  DO  7  J  =  1  ,  N 

.00  T S  1=VECT0R (  I »  J ) 

.01  DO  6  1=2, N 

02  6  I F ( DABS! TSI ) .LT .DABS! VECTOR! I , J) ) )  TSI  =  VECTOR(I,J) 

.06  DO  7  1  =  1, N 

.07  7  VECTOR! I»J)  =  VECTOR  !  I  ,  J ) /TSI 

.12  RETURN 

.13  8  DO  11  J=1,N 

.14  TSI  =  O.COOOOOOOOOOOOOO 

.15  DO  9  1=1, N 

L 16  9  TSI  =  TSI  +  VECTOR! I  ,J)*VECTOR!I ,J) 

.20  TSI  =  1.COOOOOOOOOOOOOO/DSQRTITS1) 

.21  DO  10  1  =  1, N 

.22  10  VECTOR ( I , J )  =  VECTOR ( I  ,  J ) *TS1 

.24  11  CONTINUE 

.26  RETURN 

.27  END 
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0  $  I  BF  TC  CHECK 

I  SUBROUTINE  CHEC K ( V , R , N , W ) 

C 

C  THIS  SUBROUTINE  MAKES  A  SIMILARITY  TRANSFORMATION. 
C 


2 

3 

4 

5 

6 
7 

10 

14 

15 


REAL  V( 16, 16),R( 16) ,W( 16, 16) 

DO  400  J=1,N 
DO  400  1=1, N 
W(  I  ,  J  )  =0.0 
DO  400  K= 1 , N 

W<I,J)=W(  I,J)+V(  I,K)*R(K)*V(  JfK) 
400  CONTINUE 
RETURN 
END 
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0  SIBFTC  INTERP 

1  SUBROUTINE  I NTE RP ( N P , GR I DX , X , Y , K A , RR ) 


C 

C 

C 

C 

2 

3 

4 
7 

10 

12 

13 

16 

17 

22 

23 

24 

25 

26 

31 

32 

33 

34 

35 
37 
40 

42 

43 


INTERP  USES  THIRD  ORDER  LAGRANGIAN  INTERPOLATION  FORMULA 
AND  HAS  BUILT-IN  SAFETY  DEVICES. THE  INTERPOLATED  VALUE  IS  RR. 

REAL  GRIDXl 10) , X(75)  »Y(75) 

DO  202  KB= 1 1  NP 

IF(GRIDX(KA) .GT.X(KB)  )  GO  TO  202 
GO  TO  203 

202  CONTINUE 

203  L A=KB-2 
IF(LA.EQ.O)  L  A=  1 
LB=KB+ 1 

IF ( KB.EQ.NP  )  L B  =  NP 
RR=  0  •  0 

DO  207  KC=LA,L3 
RP=  1.0 

CO  206  KD=LA»LB 

IF(KD.EQ.KC)  GO  TO  205 

RS= ( GR IDX ( KA )-X ( KD) ) / ( X ( KC )- X ( KD ) ) 

RP=RP*RS 

GO  TO  206 
20  5  RS-  1  •  0 

206  CONTINUE 
RP=RP*Y(KC) 

207  RR=RR+RP 
RETURN 
END 
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SUBROUTINE  LISTINGS 
ISN  SOURCE  STATEMENT 

0  $  I  BF  TC  LINEAR 

1  SUBROUTINE  L  I NE AR ( N P , GR I DX , X  ,  Y , K A  ,  RR  ) 

C 

C  LINEAR  IS  A  LINEAR  I NTERPULAT I  ON  FORMULA. 

C 

2  REAL  GRIDXt 10), X( 75) ,Y( 75) 

3  DO  202  KB=1,NP 

4  IFIGRIDX(KA) .GT.X(KB) )  GO  TO  202 

7  GO  TO  203 

10  20 2  CONTINUE 

12  20  3  RR=  Y ( K  8— 1 )  +  ( Y ( K  B ) — Y ( KB—  I )  )  *  (  GR  IDX(KA)— X(KB-l)  ) / ( X ( KB ) -X ( KB- 1 )  ) 

13  RETURN 

14  '  END 
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FORTRAN  SOURCE  LIST 


0  $  I BF  TC  MAIN 

I  SUBROUTINE  M A  I N ( N , WORK , V , C 1 , P Z , R , T I  ME  1 , NT , P  ) 

C 

C  THIS  SUBROUTINE  USES  THE  SEMI-ANALYTICAL  SOLUTION  TO  EVA- 
C  LUATE  THE  TEMPERATURE  PROFILES  AT  VARIOUS  ELAPSED  TIMES. 

C  THIS  PROGRAM  DOES  NOT  TAKE  THE  VARIATION  OF  HEAT  CAPACITY 

C  INTO  ACCOUNT.  THE  TEMPERATURE  PROFILES  COME  OUT  AT  P. 

C 


2 

REAL  WORK ( l6),V(16,16),Cl(16),PZ(16), 

3 

DO  8  J=1,N 

4 

WORK ( J ) =0 . 0 

5 

DO  8  K=  1  t  N 

6 

8 

WORK ( J ) =WORK ( J ) +  V ( K  »  J ) *C  1  (  K  ) 

11 

DO  9  J  =  1 »  N 

12 

9 

Cl ( J ) =WORK ( J  ) 

14 

DO  10  J= 1 »  N 

15 

WORK ( J )=0.0 

16 

DO  10  K  = 1 » N 

17 

10 

WORK! J )=WORK( J) +V(K,J)*PZ(K) 

22 

CO  11  J=  1 »  N 

23 

1 1 

PZ( J )=WORK ( J ) 

25 

DO  18  J- 1 » NT 

26 

DO  15  K= 1 1 N 

27 

UAR=R(K)*TIMElt J ) 

30 

15 

WORK { K ) = ( (R(K)*PZ(K)+C1(K))*  EXP (UAR) 

32 

DO  17  L 1 - 1 » N 

33 

P ( J  t  L 1 ) =0 . 0 

34 

DO  16  L2=ltN 

35 

16 

P(JtLl)=P(JtLl) +V ( L  1  »  L2  )  * WORK ( L2) 

37 

17 

CONTINUE 

41 

18 

CONTINUE 

43 

RETURN 

44 

END 
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FORTRAN  SOURCE  LIST 


SUBROUTINE  LISTINGS 

ISN  SOURCE  STATEMENT 


0  SIBFTC  MODIFY 

l  SUBROUTINE  MOD I F Y ( WORK , V , C3 , CZ t Z , C , N , NT ) 

C 

C  MODIFY  CALCULATES  THE  MODIFIED  VARIABLES. 
C 


2 

3 

4 

5 

6 

11 

12 

14 

15 

16 
17 
22 
23 

25 

26 
27 

30 

31 
33 

36 

37 


REAL  WORK ( 10),V(16,16),C3(10),CZ(10),Z(25,10),C(25,10) 
DO  65  J= 1 1  N 
WORK ( J ) =0.0 
DO  65  K= 1 »  N 

65  W0RK(J)=W0RK(J)+V(K»J)*C3{K) 

DO  66  J=  1  ♦ N 

66  C 3 ( J ) = WORK ( J ) 

DO  67  J=1,N 
WORK ( J ) =0 . 0 
DO  67  K= 1 i N 

67  WORK ( J ) = WORK ( J)+V(KtJ)*CZ(K) 

DO  68  J=  1 »  N 

68  C Z { J ) =  WORK ( J ) 

DO  75  K= 1 , NT 
DO  75  J=1,N 
Z(K, J)=0.0 

CO  74  L  =1 » N 

74  Z(K,J)=Z(K,J)+V(L,J)*C(K,L) 

75  CONTINUE 
RETURN 
END 
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SUBROUTINE  LISTINGS  FORTRAN  SOURCE  LIST 

ISN  SOURCE  STATEMENT 

0  $  I BF TC  PLOT 

1  SUBROUTINE  PLOT ( C ,R , Z , C3 , CZ , N , NT ) 

C 

C  PLOT  CALCULATES  VALUES  FOR  PLOT T i NG , REQUI RED  BY  THE  PROGRAM 
C  IH-20  LOGFIT. 

C 

2  REAL  R( 16) »Z( 25, 10) ,C3( 10) »  CZ ( 10) ,C< 25, 10) 

3  CO  87  J= 1 , NT 

4  DO  85  K=1,N 

5  85  C( J  *  K )  =  {  (R(K)*Z ( J,K)+C3(K) ) / ( R ( K ) *C Z ( K ) +C3 ( K)  ) ) 

7  87  CONTINUE 

11  RETURN 

12  END 
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FORTRAN  SOURCE  LIST 


SUBROUTINE  LISTINGS 

ISN  SOURCE  STATEMENT 


0  $  I BFTC  ANALYT  NODECK 

1  SUBROUTINE  AN AL YT ( ALPHA , RM , TBOUND , T I NC , N , NT , X , T I  ME , T ANAL ) 


C 

c 

c 

c 

c 

c 

2 

3 

4 

5 

6 
7 

10 

11 

12 

13 

15 

20 

21 


ANALYT  USES  AN  ANALYTICAL  SOLUT I  ON ( REF . MC ADAMS , P . 34 )  TO 
CALCULATE  TEMPERATURE  PROFILES  AT  THE  SPECIFIED  TIMES* 


REAL  X( 10) , T IME ( 25 ) , T ANAL ( 25 , 1 C ) 

PI=3* 1415927 
CO  10  K=1,N 
DO  10  J  = 1 1  N T 
T  AN AL ( J,K )=0.0 
DO  9  L  =  1 »  2 0 
AL  =  L 

AA=(2**AL-1. ) *P I *X { K ) 

AB ( 2 . *  AL-  1  • )**2*(PI/2. )**2*ALPHA*TIME(J)/RM 
9  TANAL(J»K)=T ANA L(J»K)+SIN(AA)*EXP(AB) /(2*»AL-1* ) 
10  TANAL(J»K) =TB0UND+4 • *T ANAL ( J,K )*( T I NC- TBOUND ) /PI 
RETURN 
END 
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FORTRAN  SOURCE  LIST 


SUBROUTINE  LISTINGS 

ISN  SOURCE  STATEMENT 


0  $  I 8F TC  LESQFT 

1  SUBROUTINE  LE SQ F T { A X , A V , SLOPE ) 

C 

C  LESQFT  FITS  AX  AND  AY  TO  ASTRAIGHT  LINE  AND  EVALUATES  THE 
C  SLOPE  OF  THE  LINE. 

C 


2 

3 

4 

5 

6 

10 

11 

12 

14 

15 

16 
20 
21 
22 

24 

25 

26 
27 


REAL  AX ( 3 ) »  A Y { 3  ) 

NC  =  3 

SUM  1  =  0 . 0 
DO  100  J=1,NC 

100  SUM1=SUM1+AX( J) 

SUM2=0 . 0 

DO  101  J= 1 ♦ NC 

101  SUM2=SUM2+AX(J) *  *2 
SUM  3=0 . 0 

DO  102  J=  1 » NC 

102  SUM3=SUM3+ AY ( J ) 

SUM 4=0.0 

CO  103  J  =  1 »  NC 

103  SUM4=SUM4+AX( J) *AY( J  ) 

AN  =  NC 

SLOPE= ( SUM  3* SUM 1-SUM4*AN) / { SUM  1* *2- AN* SUM2 ) 

RETURN 

END 
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FORTRAN!  SOURCE  LIST 


SUBROUTINE  LISTINGS 

ISN  SOURCE  STATEMENT 


0  $  I BF  TC  L I  NEC  T 

I  SUBROUTINE  L INECT (L INES »N .REFER ) 


C 

C 

C 

C 

2 

3 

4 

5 

6 

11 

12 

13 

14 
17 
20 
21 
22 
23 


LINECT  KEEPS  TRACK  OF  NUMBER  OF  LINES  PRINTED  AND  SKIPS 
TO  A  NEW  PAGE  LEAVING  SUFFICIENT  MARGIN. 

INTEGER  LINES, N, REFER 

1  FORMAT ( 1H2, 10X, 8H  • . CONTD ) 

2  FORMAT ( 1 H  ,10X) 

L 1 NES=L I NES+N 

I  F ( LINES. GT. 61)  GO  TO  5 
RETURN 

5  WR I TE ( 6 ,  1) 

L 1 N  ES  =  9 

IF(REFER.EQ.l)  GO  TO  6 
RETURN 

6  WRITE(6»2) 

L  INES= 10 

RETURN 

END 
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